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-TITLE AUTOCONFG = AUTO CONFIGURATION OF DEVICE DATA BASE 
-IDENT ‘v04-000 


PARRA AARAAAAAAAAASAALAALALAA SALLE LARA EASE EERE RRR ARRAS SESE RARER RS ER RARER AS SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


3* 
*®@ * 
ee * 
7* ad 
7* ed 
3* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
*@ ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;>* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
*@ ® 
*@ ® 
*® ® 
*® ® 
*@ ® 
*® * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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SOoOSSCSCSCSSSOSSSSOSOOCOSOSOSOOSOSOSOSOSOSOSOOOOSOOSOSOSSSoOOo 


OOOoCoooooooooooooooQoooooooooo 
GOOCCCCOSCCOOSOSOSSCSSCOSCOOCOCOOCOOOOOO OOOO OOoOoO 


D. N. CUTLER 19-JUN-78 
AUTO CONFIGURATION OF DEVICE DATA BASE 
MODIFIED BY: 


v03-018 WHMOO11 Bill Matthews 01-Aug-1984 
Check that the CSR for the system device is actually in unibus 
address space. The RB730 changes it's CSR address and therefore 
apeeers to autoconfigure to be a different device which causes 
the logic in FIX_DEV_NAME to fail. 


v03-017 WHMO0010 Bill Matthews 19-Jun-1984 
Made XI nosupport. Remove restriction that you cannot boot 
from a unibus device other than the first unibus unless there 
is exactly one device of that type on each preceding unibus. 


v03-016 WHMO009 Bill Matthews 11-Apr-1984 
Changed the name of the QNA back to XQ. The name was already 
used in code that was blasted into ROM. 


v03-015 wHM0008 Bill Matthews 05-Mar-1984 
Changed the name of the QNA from XQ to XH. 


v03-014 WHM0007 pitt Matthews 23-F eb-1984 
Changed gutecent gure tables to have only one copy of 
the ascii device name string and driver name string. 
Use dr ves nose “OSDRIVER’' when no driver is to be loaded. 
(e.g.DMF 52,DM252,CP132) 


SSssssssss 
Sooooooooao 


ooo 
ooo 
OOoOOoooooo 
OOOCoooecoee 


SOOoooooooooo 


NOUS WN 0 ODNOA UE WR 9 OD NAMES WN 9 OO NAMES WN | DO OONAUES WN OOONOUS win 


PUPPIES BBE EE PANN AANA ANI GIP PUNINPINIPININYDS 2 2 OO OO oe os 
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Sooooooo 


Soooo 
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982 
Use new field mh ADP. ADPSL AVECTOR, to soley ste ACFSW_AVECTOR, 
instead of using adapter's TR number (ADP$W_T 


v03-003 MSHOO001 Maryann Hinden 07-SEP-1982 
Add TU81 and vS100; “change UNA device name to XE, and 
add CSR and vector to allow 


v03-002 JLV0203 Jake te CORB 29-MAR-1982 
Change DMF in UBADEV 0 te prevent ACFSINC_CHAR 
from matching it with RK611‘s (DM he code in ~ 
CHECK_OTHERS is not robust enough, changes in the 
UNIBUS table may cause other problems. 
Change UNA driver name to XEDRIVER. 


v03-001 sLv0197 Jake Vertioy 
Chan e. the yester 1038. ad rom ‘, socte}) to 10 (octal) 
for and from 10 to 4 for the DR11B. 
Renove. two "ot the ¢ r CSR's for the DX11. Change the. 
name of the DUP11 ar tees to "NODRIVER’’ so that we wen’ t 
load any driver instead of loading the wrong drive 

Add two @ bus devices - DMV11 and DPV11. Correct etieete 
for the KMS11 and add the PCLIY as XP. Add patch epece 
to end of UBATABLE. Change floating cSR algorithm bug. 


booting from it. 


17-MAR-1982 


0 
; 3g v03-013 pees Bill Matthews 16-F eb-1984 

60 Chan oe the device name of the 0Q11 from XQ to OR. 
0 61 Adde pport for the QVSS. Changed the name of IX from 
BS $6 IEX11 ie EQ11. 
00 64 v03-012 wHMO000S Bill Matthews 04-F eb-1984 
000 65 Added support for the new field ACF $B_COMBO_VECTOR_OFFSET. 
44 6¢ Cleans up support of combo style devices. 
000 68 v03-011 WHMO0004 Bill Matthews 03-Feb-1984 
4 ] Changed the device name of the DMV11 from 00 to xD 
4 oy Added support for multiple devices with the same name. 
000 ys v03-010 WHM0003 Bill Matthew 02-F eb-1984 
44 7 checked in v03-009 source oe "eistehe: 
900 75 v03-009 wHM0002 Bill Matthews 29-Dec-1983 
4 is Added autoconfigure support for TC11. 
000 78 v03-008 WHM0001 Bill Matthews 13-Dec-1983 
4 79 Rewrote support for autoconfiguring combo devices. 
000 1 v03-007 gi voots Jake VanNn 18-Nov-1983 
000 § t in ouppert for laree Q A. Also add DHV/DHU. 
4 ? on. NOSUPPORT flag from UNA. 
000 5 v03-006 MSHO003 Maryann Hinden 09-Feb-1983 
44 § Add support for cluster device names. Change TU to MU. 
000 8 v03-005 MSHO002 Maryann Hinden 28-Dec-1982 
444 ; Calculate oe vector correctly for nth (n>1) device. 
Bay 1 v03-004 Magee rudy C. Matthews 22-0ct-1 
000 
000 4 
000 
000 
000 
000 
000 
000 
4 
00 
000 
000 
000 
000 
O60 
00 
0 
0 
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| 
| 
Make ACFSINC_CHAR smarter so that it gets device names 
correct for all subsequent UNIBUS's. 


Bb i te 


MACRO LIBRARY CALLS 


SACFDEF DEFINE ACF OFFSETS 
SADPDEF DEFINE ADP OFFSETS 
CDEF DEFINE DEVICE CLASSES AND TYPES 
00 SODBDEF DEFINE DDB OFFSETS 
4 SIDBOEF DEFINE 108 OFFSETS 
0 SMBADEF DEFINE MBA REGISTER OFFSETS 
000 SPDTDEF DEFINE POT OFFSETS 
000 SRPBDEF DEFINE RPB OFFSETS 
4 SUBADEF DEFINE UBA REGISTER OFFSETS 
000 SUCBDEF DEFINE UCB OFFSETS 
i SOPTDEF DEFINE DPT REGISTER OFFSETS 
0000 SCRBDEF 
44 SVECDEF 
000 
0000 3 
444 3; LOCAL MACROS 
9000 3; FULSH INSTRUCTION BUFFER AND DELAY 
0000 MACRO FREEIB 
NOP 
0000 NOP 
NOP 
NOP 
NOP 
NOP 
NOP | 


NOP 
-ENDM = FREEIB 


: GENERATE ADAPTER TYPE CONTROL TABLE ENTRY 


‘ ADAPTER TYPE 


SOooooooooooo 


-MACRO ADAPTER TYPE 
WORD 0 


- IRP X,<UBA,MBA,DR,CI> 
~I1F IDN <X>,<TYPE> 
=." 

$$$-. 
«WORD ATS_'TYPE 


- LONG 
ADAPTERLEN=.-$$$ 
MEXIT 


So 

oO 

So 

oO 
Oe a ee ee a ee ee ee ee ee ee ee ee ee a a a ed 
=OODNANE WN OS OD NAUE WN SO ODNAUE WN 0 ODNOUEWN "OOO NO UE WO OOnNoOu 


SNA AAAAAA AAA VIIMNIVIUVIVIVIUIUIUIE BEER EL EEE 


SOoOoooooooooooooooooooSo 


SSS RO SSO SO SSS SSS SSS SS SSSSSs 


SoOooooooooooooo 


*ENDM 
.ENDM ADAPTER 


poo 


Ne a ae 
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4-SEP-1984 


GENERATE MBA DEVICE DESCRIPTOR 
MBADEV DEVNAME ,ORVNAME , TYPES 


«MACRO MBADEV. DEVNAME ,DRVNAME , TYPES 
- IF NOT DEFINED $*DEVNAME'S 
AS hd ACF SDE VNAME 
$'DEVNAME ‘$=, 
eASCIC \"DEVNAME'A\ 


SSoooooooooss 


SoOooooooo: 


$$$-. 
-PSECT ACFSRESET 
-ADDRESS $$$ 


.ENDC 

IF NOT_DEFINED $*DRVNAME'S 

“PSECT “ACFSDRVNAME 
$"DRVNAME '$=. 

-ASCIC \DRVNAME\ 

.ENDC 

.PSECT ACFSDEVDESC 
SDEVDESCS=. 
.LONG $'DEVNAME'S 


-LONG $'DRVNAME'S 
~ IRP Bor ase 


COOoooooccooao 


ooooooo 
DOSDOGDOOOS0O00O00O000 000009000009 09 09090909 SI NINN 


DNA AEA OS OD NAN EWN 9 OD NAW WN SO ODNAUES WN (OOO NA UE WIN O OONOAUE UN 


RD O 

-PSECT NONPAGED DATA’ rd,wrt,noexe,quad 
-LONG $DEVDESCS 

-ENDM MBADEV 


Sooooooooooa 
Sooooooooooooo 


GENERATE DR DEVICE DESCRIPTOR 
DRDEV DEVNAME ,DRVNAME 


SSSssssssssssss 
oso 


«MACRO DRDEV DEVNAME ,DRVNAME 


-1F NOT_DEFINED S*DEVNAME'S 
-PSECT ACF SDEVNAME 
$*DEVNAME ‘$=. 
$88 eASCIC \*DEVNAME'A\ 


-PSECT ACFSRESET 
-ADDRESS $$$ 
ENDC 


8 un te 5 5 8 


POR RORoROROROROROROPORORONONONONOPONOPONONONONONNINNONY 2 es 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ssssssssssssss 


- IF NOT. D $*DRVNAME*$ 
-PSECT VNAME 
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4 
4 BOOTS.SRC JAUTOCONFG.MAR; 1 
S$" DRVNAME ‘$=. 
eASCIC \DRVNAME\ 
-ENDC 
: PSECT ACFSDEVDESC 
0 4 SDEVDESCS=. 
5 «LONG $°DEVNAME'S 
§ LONG *DRVNAME '$ 
-PSECT NONPAGED DATA rd,wrt,noexe,quad 
it 3 LONG $DEVDESCS 
09 9 -ENDM DRDEV 


+. 
vou~000"” 


“ 
= AUTO CONFIGURATION OF DEVICE DATA BASE 15-SEP-1986 23:37:41 YAX/VMS - 
eSE=1984 3:00:16 Leoorsssnedautoconre.mar:1 "28 <f, 


<3 GENERATE UBA DEVICE DESCRIPTOR 
dS :+ 
<} The UBADEV macro generates the following data structures: 
rk The first part is the same for fixed,fixed / fixed, floating / or 
0 floating, floating 
stucture: for example: 
' 4 Fem eewwweeeoccooeecoeccoccocece + 
of 5 i address of devname EP he ae 0 “<-> “"SLPA’ (ascic string) 
$3 387; FTadaress of drvnane {4 ===> “BLPORIVER™ 
3 ae p Sebrese ot pecoens, Seeetest ES ea ee 
es p ttrene of oeties ete Ls ee ee 
3 e§ initial controller letter : 16 A’ as in lp''A’’ (For IOCSRESET) 
of 68 onenen OD 17 #1 
00 568 AR ER 
$% i flags : 19 m = 001 for fixed, fixed,support 


And now, the structure changes based on vector and CSR assignment: 
Fixed CSR, Fixed vector: 


Gevecesceococescos 


! first CSR : 20 


$eoecececcocccoco 


! first vector ! 


! 2nd CSR . 
+ * 


! 2nd vector ! 
= +e 


ee 


SOoOSooOoooooooooooooooo 


SSSSSSSSSSSSSSSSSSSSSSS 
cos 
woo 


SSoooooo ooo SoS SSS SSS SoS SSS Sooo SC OSS SS SSSSS 


H last CSR : 
9 ' Last vector ! 
92 - j=  § +emeenenenceecee 4 
4 ; : baa. | S i : zero word marks end of List 
95 
9 
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-PSECT ACF SRTNNAME 
SRTNNAMES=. 

eASCIC \ROUTINE\ 
ACF SDEVDESC 


»PSECT 
SDEVDESCS=, 
-LONG $'DEVNAME'S 
[LONG $"DRVNAME'$ 
-LONG NAME 
UBA_M _SUPPORT= 1 
UBA-V"SUP 


PORT=0 
$$S=UBA_M_SUPPORT 
.IF DIF <SUPPORT>,<SUPPORTED> 


Sooooooooo 


SOoOooooooooooooSd 


SOQooooooooeo 


p 38 ; geoeeeceoocoeoeoooes 
0; ! vector mask ! 20 
1 g Fens masrensecaanaa + 
¢ 3 ' first CSR ' 
3 ¢ ewer eceae aemaewe a=} 
09 03 ; ! t 2nd CSR H 
0 6 : ‘ 
0 3 ° 
3 
099 \9 ; ' Last CSR ' 
4 \§ H AP a Ree : zero word marks end of List 
000 318; 
9444 16 ; Floating CSR, Floating vector 
464 V ‘ peo nme wr ewneeacen 
900 19 : ' vector mask! 20 
9000 A : 1 CSR mask ! 
0000 $6 : “ten zero word) 
000 24; 
3 
000 27 -MACRO UBADEV DEVNAME ,DRVNAME ,ROUTINE ,NUMVECT,CSRTYPE,- 
4 $8 VECTYPE ,REGISTER, VECTOR, SUPPORT=SUPPORTED 
000 $5 -1F NOT_DEFINED $S*DEVNAME'S 
000 31 -PSECT “ACFSDEVNAME 
000 3 $"DEVNAME '$=. 
000 3 SASCIC \"DEVNAME'A\ 
3 m7 
000 36 -1F NOT_DEFINED $*DRVNAME'S 
000 37 -PSECT ACFSDRVNAME 
4 38 $"DRVNAME'$=. 
00 39 eASCIC \DRVNAME\ 
0 40 
§ 303 
4 
44 
re 
23 
48 
49 
50 
23 
33 
54 


SOOCOoCOSCOSOSOSOSOOOOOOSOOSOOOOOOOSoOOSoSoSoS 


oooooo 


$$$=0 


sl 
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3 
0 
00 35 
090 $61 
es 
B88 6 
00 64 
099 65 
000 $67 
0000 368 
0000 369 
0000 70 
0000 71 
0000 ie 
0000 7 
0000 74 
0000 75 
0000 76 
0000 77 
0000 78 
0000 79 
0000 80 
0000 81 
0000 8 
0000 8 
0000 $ 
0000 8 
0000 38 
0000 «38 


UBA.M 


p=198e 83:02:16 
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~ENDC 
-LONG ACFS'ROUTINE 
ate: “ 
gt NUMVECT 
BYTE 0O 3; Unused 
FLOAT ESRe? 


BA VIFLOATVEC=2 


: IF 

4 ACFSAL_ *ROUTINET” "DEVNA 
5 -ENDC 

6 

7 


-ENDM 


-LIF IDN <VECTYPE>,<FLOAT>, $$$=$$$!UBA_M_FLOATVEC 
IF ION pS yb at e OAT> 

-BYTE $$$!UBA_M FLOATCSR 

IF IDN N <VECTYPED; <FLOAT> 
«WORD VECTOR=- 


-ENDC 

tts REGISTER=1 
-BYTE $$$ 

-IF_IDN <VECTYPE>,<FLOAT> 
«WORD VECTOR-1 
-ENDC 

-WORD 0 

A X,<REGISTER> 
-=.7* 

«WORD = X,0 

-ENDM 


PSECT NONPAGED_DATA  rd,wrt, noexe, quad 
T_DEFINED A he "ROUTINE'_'DEVNAME ' 


-LONG S$DEVDESCS 


UBADEV 


oes” 


co 


Aes 
one OarG 
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-SBTTL COMBODEV MACRO 


ca 


The COMBODEV macro is similar to the UBADEV macro. It is used to def 
hg gy tees when more than one device appears on a single board ( 


ine 
lik 


«MACRO COMBODEV DEVNAME DRVNAME ,NUMVECT, VEC_OFFSET,CSR_OFFSET,- 
SK, SUPPORT=SUPPORTED 


- IF NOT DEFINED $S*DEVNAME'S 

-PSECT “ACF SDEVNAME 
$"DEVNAME ‘$=, 

-ASCIC \"DEVNAME*A\ 


-PSECT ACFSRESET 
-ADDRESS $$$ 


-ENDC 


ft NOT_DEFINED $*DRVNAME'S 
PSECT ~ACFSDRVNAME 
$"DRVNAME '$=. 
~ASCIC \DRVNAME\ 


- ENDC 


-PSECT ACFSDEVDESC 
SDEVDESCE=. . 


MASK 
-LONG $'DEVNAME'S 
- LONG ae © 
-BYTE UMVECT 
- WORD VEC OFFSET 
-LONG CSRUOFFSET 


$$$ = UBA_M_ SUPPORT 
IF bie s <SUPPORTD <SUPPORTED> 


-BYTE $$$ 
-PSECT NONPAGED DATA rd,wrt,noexe,quad 
LONG $DEVDESCS 


-ENDM COMBODEV 


SOSOSCOCSCSOOSOSOSOOSOSOSOSOOSOSOSOSOSOSOSOSOSOSOOSOSOSOOSOOSOOSOSOOSOOOSOOOOOSOOSoO 
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COODWNANE WO OONAUE WN OC OONOAUEWN OOD NAUNEWN CO OONOUEWN OO 
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-090 CLASSDEV MACRO SEP-1984 $3 2:02:16 Yeoors sre AUTOCONFG.MAR;1 . (1) 
$08 rr -SBTTL CLASSDEV MACRO 
009 444 ; THIS MACRO IS USED TO GENERATE A TABLE ASSOCIATING PORT DEVICE 
00 445 ; NAMES WITH CLASS DRIVER AND DEVICE NAMES 
000 ret ; 
B58 44 
48 as eMACRO CLASSDEV DEVNAME , DRVNAME , PORTDEV 
0000 450 ePSECT ACFSDEVNAME 
0000 451 SDEVNAMES =. 
0000 $26 eASCIC \"DEVNAME'A\ 
0000 4535 $$$ =. 
| 0000 454 
0000 455 -PSECT ACFSRESET 
0000 456 [ADDRESS $$$ 
0000 457 
0000 458 PSECT ACFSDRVNAME 
0000 459 SDRVNAMES$ = 
0000 460 LASCIC \DRVNAME \ 
0000 461 
0000 re -PSECT ACFSDEVDESC 
0000 463 S$DEVDESC$ =. 
0000 464 -LONG SDEVNAMES 
0000 465 -LONG S$DRVNAMES 
0000 466 eASCIC \PORTDEV\ 
0000 467 
0000 468 
0000 469 -PSECT NONPAGED_DATA  rd,wrt,noexe,quad 
0000 4706 -LONG S$DEVDESCS 
0000 471 
0000 472 ~ENDM 
0000 473 
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/ V04-000 LOCAL offsets 4-SEP=1984 25:02:16 (CBOOTS.SRCJAUTOCONFG.MAR; 1 


| 3 : ; M78 TAPE CONTROLLER REGISTER AND COMMAND DEFINITIONS 
i . 
0000010 8 5 17 AB: 1 y ATTENTION BIT REGISTER 
000001 00 6 ™M78-DS=2 : DEVICE STATUS REGISTER 
90900¢¢ 0 ™™7 “NO TAS44 + NON-DATA TRANSFER INTERRUPT STATUS REG 
00000 : TM78-NDT0=48 : NON-DATA TRANSFER COMMAND REG #0 
99 0044 178 1D=6 + INTERNAL DATA REGISTER 
0 4 99 40 TM78-M_TMCLR=*X4000 : BIT MASK FOR TMCLR BIT IN ID REGISTER 
0008000 000 41 TM78-M~ TMRDY=*X8000 + BIT MASK FOR TMRDY BIT IN ID REGISTER 
00000009 00 4g 1M78~SENSE_GO=9 t SENSE COMMAND AND GO BIT 
B99 44 
0000 546 : RL11 CONTROLLER REGISTER DEFINITIONS 
B33 
000000 0000 549 rRL_cs=0 ;CONTROL STATUS REGISTER 
00000400 0000 550 RL-CS_M_OPI=*x400 : OPERATION INCOMPLETE 
60000001 9000 8&2 AETpA_M_MRK=1 sD1SK ADDRESS REGISTER 
00000002 0000 228 RLDALH-SIS=g : GET STATUS 
00000008 0000 554 RL~DA-M“RST= t RESET DRIVE 
$000 888 ; 
0000 557 : UBA 1/0 PAGE OFFSET DEFINITION 
$000 a9 
00001000 0000 560 uBA_IOBASE=8*512 ; 
$009 862 
0000 28 : LOCAL DATA 
0000 564 : 
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ION TABLES 4-SEP-1984 33:9 


»SBTTL AUTOCONFIGURATION TABLES 
8 ; ADAPTER TYPE CONTROL TABLE 


7 


ra 


U 
T 
6 


7 tat TE MPAGED DATA rd,wrt d 
o f r e oe 
rg ACFSAB_ADPTYPE: : iv we 5 eeppoanaae 
7% ADAPTER MBA SMASSBUS ADAPTER 
.WORD 0 
. a oe 
“WORD ATS$_MBA 
“LONG ACFSMBA 
575 ADAPTER UBA ;UNIBUS ADAPTER 
- WORD 0 
"WORD AT$_UBA 
“LONG ACFSUBA 
576 ADAPTER DR : DR32 ADAPTER 
.WORD 0 
oe o a 
“WORD ATS$_DR 
“LONG  ACFSDR 
577 ADAPTER CI : CI ADAPTER 
-WORD 0 
“wORD AT$_CI 
“LONG = ACF SCI 
578 ADAPTER woke 0 g 
Hf 
$8 t CONTROLLER DESIGNATOR RESET POINTER TABLE 
8 ° 
oe? .PSECT ACFSRESET 
$i ACFSAL_RESET: ; TABLE BEGINNING 
87 ; 
238 3; MASSBUS ADAPTER CONFIGURATION CONTROL TABLE 
590 ° 
591 -PSECT NONPAGED_DATA  rd,wrt,noexe,quad 
098 ACFSAB_MBATABLE: ; 
59 MBADEV DB,DBDRIVER,<<*X10>,<*x11>,<*x12>> ;RPOX 
.PSECT ACF SDEVNAME 
SASCIC \DBA\ 
.PSECT ACFSRESET 
“ADDRESS $$$ 
T ACF SDRVNAME 


“ASCIC \DBDRIVER\ 
.PSECT ACFSDEVDESC 
“LONG 

“LONG $DBDRIVERS 
“WORD *X10 


AX/VMS Macro V04-00 
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- LONG 


5-SEP-1984 23:37:41 VAX/VMS Macro v04-00 p 14 
Fat ath $335 i46 Yeoors sre AUTOCONFG.MAR; * on (1 
~ WORD “x11 
«WORD *x12 


WORD 0 
«PSECT NONPAGED DATA rd,wrt, ’ 
LONG S$DEVDESC eee ie 


DR, DRORIVER, <<*X14>,<°X16>,<*X17>,<4K22>> = RMOX 
-PSECT ACFSDEVNAME 
SASCIC \DRA\ 
.PSECT ACFSRESET 

SADDRESS $$$ 

-PSECT ACF SDRVNAME 


eASCIC \DRDRIVER\ 

-PSECT ACFSDEVDESC 

LONG R 

-LONG S$DRDRIVERS 

«WORD *X14 

-WORD “*X1 

»WORD “*X1 

«WORD “X22 

-WORD 0 

“fy corre DATA rd,wrt,noexe,quad 


“LON V 
MT, TMDRIVER,<<*XCO028>> ; TMO3 CONTOLLER SPECIFIC DATA 
.PSECT ACFSDEVNAME 

SASCIC \MTA\ 


~-PSECT ACFSRESET 
-ADDRESS $$$ 

~PSECT ACF SDRVNAME 
A \TMDRIVER\ 
ACF SDEVDESC 


- LONG Me ot Nay 
“x02 


0 
NONPAGED_DATA 
*LON v 

MF, TFDORIVER, <<*xC040>> 
.PSECT ACFSDEVNAME 
SASCIC \MFA\ 


rd,wrt,noexe,quad 
3; ™78 


-PSECT 


-ADDRESS $$$ 
-PSECT 


-ASCIC 


AGCERESET 


ACF SORVNAME 
\TFDRIVER\ 


ACF SDEVDESC 
SMFS 
SIERRIVERS 
*xC04 


0 
NONPAGED DATA 
SDEVDESCS 


rd,wrt ,noexe,quad 
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LES :02:16 (CBOOTS.SRCJAUTOCONFG.MAR; 1 


ON TABLE 4-SEP=1984 


NONPAGED_DATA 
XF ,XFDRIVER 
.PSECT ACFSDEVNAME 
TASCIC \XFA\ 
.PSECT ACFSRESET 
“ADDRESS $$$ 
T ACFSDRVNAME 
\XFDRIVER\ 
-PSECT ACF SDEVDESC 
NG  $XFDRIVERS 
“PSECT NONPAGED_DATA 
“LONG  $DEVDESCS 


GUR 

ATl 

236 

o80 : DR32 ADAPTER CONFIGURATION CONTROL TABLE 
808 

6 rd,wrt,noexe,quad 
604 

605 


.PSECT 
ACFSAB_DRTABLE: 
DRDEV 


rd,wrt,noexe,quad 
e09 
608 : CI ADAPTER CONFIGURATION CONTROL TABLE (uses DRDEV macro) 


611 ACFSAB_CITABLE: 
612 DRDEV PA, PADRIVER 
.PSECT ACF SDEVNAME 
“ASCIC \PAA\ 
-PSECT ACFSRESET 
“ADDRESS $$$ 
“PSECT ACF SDRVNAME 
“ASCIC \PADRIVER\ 


~PSECT ACFSDEVDESC 
SPAS 


G SPADRIVERS 
-PSECT NONPAGED DATA’ rd,wrt,noexe,quad 
LONG SDEVDESCS 


; ADDRESS OF UBA DEVICE GENERATION ROUTINE AND RETURN 


ACF SL_RETURN: 
ACFSL_RETURNE: 
BLK 
ACFSL_ROUT INE: 
~BLKL 1 
ACFSL_DELIVER UNIT: 
ACFSL_ACF_ SAVE: 


-BLKB 
ACF SW_VECMOD: 


1 
1 


Alternate 


Save area for ACF block 
ACFSC_LENGTH 


ONAL WN "OQ OOnNOulw 


POPOPOPONOPOPOPUNRD 2 2 


PDOAAAAAAAAAAA AAAS 


Save for floating vector modulus 
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y04-000 AUTOCONFIGURATION TABLES Pa et 9 33:55:48 BOOTS. SRC JAUTOCONFG.MAR; 1 - 9) 
00000070 629 .BLKW 
sh 
0? 6 § : REGISTER SAVE AREA 
QU? 635 ; 
070 634 
979 635 ACFSL_ROSAVE: ; 
00000074 07 é : .BLKL 1 ; 
74 637 ACFSL_RISAVE: : 
00000078 0074 638 -BLKL 1 : 
07 639 ACFSL_R2SAVE: : 
0000007¢ 07 640 -BLKL 1 : 
7C 641 ACFSL_R3SAVE: 
00000080 007¢ 64¢ ~BLKL 1 : 
0080 64 ACFSL_R4SAVE : : 
00000084 0080 644 ~BLKL 1 F 
0084 645 ACFSL_RSSAVE: 
00000088 0084 646 ~BLKL 1 ; 
0088 647 ACFSL_R2R3SAVE: 
00000090 0088 648 -BLKL 2 
0090 649 
0090 650; 
0090 631 3 UNIBUS ADAPTER CONFIGURATION CONTROL TABLE 
44 638 : NOTE: ALL FLOATING ADDRESS ENTRIES MUST BE IN PRIORITY ORDER. 
0090 655 
0090 656 .NLIST MEB ; Cut down Listing size 
0090 657 
0090 658 ACFSAB_UBATABLE:: ; 
0090 659 UBADEV CR,CRORIVER,CR11,1,F IXED,FIXED,<<*017160,°0230>> ; 
0094 660 UBADEV DM,DMDRIVER.RK611,1,F IXED, FIXED, <<*017440,°0210>> ; 
0098 661 UBADEV LP, LPDRIVER.LP11,1,F1XED, FIXED, <= 
0098 66¢ <*017514,*0200>,- 
0098 66 <*004004,°0170>,- 
0098 664 <*004014.°0174>.- 
0098 665 £2004004,20 70>.- 
0098 666 <*004034.°0274>> 
o09¢ 667 UBADEV DL -DLDRIVER RL 11,1 .FIXED.FIXED. <<°014400,°0160>> : 
SOA0 668 UBADEV MS, TSDRIVER,1S11,1,F 1XED,FIXED.<<*012520,*0224>> : 
Q0OAS4 670 : NOTE: THE CSR AND VECTOR ASSIGNED TO THE RX02 COINCIDES WITH 
OOA4 671 ; THE RXO1. ANY DEVICE AT THIS CSR IS ASSUMED TO BE AN RXO2. 
0A4 ore UBADEV DY .DYDRIVER .RX211.,1.FIXED FIXED. <<2017170,.0264>> : 
0A8 674 UBADEV DQ,DQDRIVER,RB 30.1 ,FIXED FIXED. <<°013608,°0 0>> ; 
OAC 675 UBADEV PU,PUDRIVER,UDA ,1.FIXED.FIXED.<<*012150.°0154>> 
08 676 UBADEV PT,PUDRIVER.TU81 .1.F IXED.FIXED,.<<*014500,°0260>> 
0B4 67 UBADEV XE,XEDRIVER.UNA ,1,FIXED.FIXED.<<*014510,°0120>> 
088 678 UBADEV XQ,XQDRIVER,QNA .1.FIXED.FIXED,<<*014440,°0120>> 
OBC 67 UBADEV OM, OMDRIVER DCI FIXED FLOAT, < 
OBC 680 <*614000>,< oi40{ >,<*0140 > «£2014030>,- 
OBC 681 <*014040>.<*014050>.<*014060>.<*014070>.- 
OBC 6 ¢ <*014100>,<*°014110>,<*0141 pe thot >,° 
OBC 6 <*014140>,<*°014150>,<*014160>,<*014170>,- 
OBC 684 £2014200>,<201421 > -<20148 > .<201433 > i= 
OBC 685 <*014240>.<*014250>.<*014260>.<*014270>.= 


————————-—_ --—_ ----  —---——-——— oe OOD. IO IO 


| 


| 
| SuvoronrG = AUTO CONFIG 
URA 
AUTOCONF IGURAT I ee 7:41 VAX/VMS - 
| - om t-3Eb= 1986 88:00:16 LBooressneiautoconrc.mar:1 "2% (7 
<*014300>,<*014310>,<*014 
B 6 A * oS. >,<*014 >,- 
a ce UBADEV seaen Ha iinet 7 sme serge 
<*616500>,<40165105,<* ‘ 
C 6 a 5 a . *01 520> <*0 0165 
ae SH coi chee: aI 
<*016640>,<*016650>_<*016660>,<*01 
Bee $27 UBADEV 08.0 R VER DMT, FIXED F Afses - >, 8 
Ot 695 2401554 5 San) >.<*01 >,<*01 3 >,- 
oc, 69 <2015800>+<201 10>7<-013830>,<-015 z 
docs 698 UBADEV Wn TADR ven DAT 16 tEINED go .s°ot5 7035.4 ,NOSUPPORT 
00¢8 700 £2510300> .<20108 16>.<7010520>.<°010530>,- 
bors 701 Fes Rm TE en Ht, >: £20198709 >i 
00c8 70 2010600>,<*010610>,<*01 é3 >,<*01063 
goce 708 UBADEV sa teataeg Stata cb ebta ge 210875 companies 
OOCC 705 <297600> .<°675 20>. <1073603.<707550>.- 
O0CC 706 PR ih rs we IA 30>,<*07520>,<*07510>,- 
Oocc 707 a +£*07470>,<*07460>,<*07450> 
ey THA 
0000 710 $.81S 888 « 10126 £>°<*01 éi0>. <9) 
00p4 i} UBADEV SP LPPDRIVER, PP ; ABR ith fie 6543578.nosurpont 
00D4 71 <*01 7 0>,<°01 7 >,<*01 vA > 4 
908 71% UBADEV sires t 120 SeD1e7 Rs wy 7343578, osuPport 
00D8 71 <2017420>,<°017462>,<* 146949 1£°017626>, 
gon¢ at UBADEV souredhs estes iiss -8.NOSUPPORT 
os ea UBADEV vugteDeven Be 16y2- FRED eCOAt 
00E0 7 “ >, <4015626>,<*015630>,<4015640>,- 
GOED 728 £01 8F305:e-01 9605 <0] 86509 <o8187e03-= 
*015750>.<*015760>,<*015770>,<* “a 
Q0EO 724 £aB10%00 708 -£*015770>,<*016000>,- 
00E0 7 a +$*016020>,<*016030>,<*016040>,- 
ee SHIT -CHIGH CHIMIB: CER 
poee fst UBADEV YJ VADRIVER, DTT. Peiphney “BUNOSUPPO 
Goer 786 UBABEY TH THDRIVER: HI FLOAT FLOAT. 6,6 gaya 
a : UBADEV BS -Sae tt ty  Taa an 05> “0120102>,8 NOSUPPORT 
OF8 7 ° VER,DQ11, LOAT FLOAT 8, NOSUPP ote 
Bre Fae RREY ESET EE St EE ERB gut amsuron 
19% 736 UBADEV AY AYRELVER, BHT) 2 FLOAT FLOM tant oat, 8. G’NOSUPPORT — ; OODRIVER means don’ 
108 738 UBaDey 9c DeDRTVER.PENT. Pay a S04514032.8 pomrront 
RARE Cea ies Urea a : 
ht a S| UBADEV KK -SKDRIVER-KRCI 1 <9 FLOAT FLOAT -8.8 NOSUPPORT 
UBADEV OH,OHDRIVER.LPP11,2,FLOAT FLOAT ,8,8,NOSUPPORT 


a — 


r—_- —---- - —EE a — 
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| AUTOCONF IGURATION TABLES i3be $3 2:16 [BOOTS.SRCIAUTOCONFG.MAR:1 > (1) 
| 11¢ 743 UBADEV O1,O1DRIVER,VMv21, FLOAT. FLOAT, 1.8.8 NOSUPPORT 
| 1 44 UBADEV OJ,OJDRIVER.VMV31.0,FLOAT, FLOAT, 16,8, NOSUPPORT 
104 745 UBADEV OK OKDRIVER.DWR70 FLOAT FLOA AT ‘8 jB.WosuPPorT 
128 246 UBADEV OGL.DLORIVER.RL11,1,FLOAT,FL 18,4 
| ise Fe iba MS TSDRIVER, 1811 0). FIXED. FLOAT <* 
| 1 6 28 UBADEV LA LADRIVER Opal 2cFIXED Float. <- 
1 £30 <*610460>>,8 
134 751 UBADEV LA-LADRIVER.LPAIT.2.ELOAT, FLOAT, 
8 136 UBADEV OL-OLDRIVER.KW11C.2.FLOAT.FLOAT.” “3° O46  ,osuPPORT 
13¢ 734 : RES ER VED FLOATING CSR: SHOULD NEVER BE OCCUPIED BY A 
c 13 ; PHYSICAL DEVICE SINCE IT IS RESERVED. 
1 737 UBADEV RSV, RSVDRIVER,RSV,1, FLOAT, FLOAT,8,8,NOSUPPORT 
014 8 : RXO2"S AFTER THE FIRST: (NOTE: POSITION OF FIRST RXO1 COINCIDES WITH 
9140 760 : RXO2 AND IS ALWAYS ASSUMED BY AUTOCONFIG TO BE RXx02.) 
0140 76 UBADEV DY,DYDRIVER,RX211,1, FLOAT, FLOAT.8,4 
0144 763 UBADEV XA. XADRIVER.DR11W,1.FLOAT.FLOAT.8,4 
0148 765 : THE FIRST DR11B HAS FIXED CSR AND VECTOR AND NO SUPPORT; IT 
0148 766 : THEREFORE HAS NO EFFECT ON AUTOCONF IGURA 
0148 767 : THE SECOND DR11B HAS FIXED CSR AND FLOATING VECTOR. 
14 768 ; DR11B°S AFTER THE SECOND HAVE BOTH FLOATING CSR AND VECTOR. 
145 770 UBADEV x8. KBDRIVER, DRI1B.1.FIXED. FIXED, <<"012410, *0124>>,- 
14 771 "0'' is a placeholder 
14C (77 UBADEV Ny SSDRIVER, br118, 1, FIXED, FLOAT, oon 1 5E30>> 4 ,NOSUPPORT 
130 3 UBADEV XB,XBDRIVER.DR11B8.1.FLOAT.FLOAT.8, «,NOSUPPORT 
154 775 UBADEV XD,XDDRIVER,DMP11,2,FLOAT, FLOAT. 1 
0138 176 UBADEV ON. ONDRIVER.DPV11. CHEBAT-FLBAT *8,NOSUPPORT 
15¢ «(77 UBADEV IS.ISDRIVER.1SB11.2.FLOAT.FLO mes UPPORT 
0160 778 UBADEV XD.XDDRIVER.DMV11.2.FLOAT.FLO 
0164 779 UBADEV XE.XEDRIVER.UNA .1.FLOAT.FLO 
0168 780 UBADEV PU.PUDRIVER,UDA -1.FLOAT tears . 
016C «781 UBADEV COMBO, OSDRIVER, DMF $ Pr anane 32,4 ZOSDRIVER means don't load a 
O170 78¢ UBADEV XS,XSDRIVER,KMS11,3, FLOAT FLOAT, 16, gNOSUPP 
174 78 UBADEV XP XPORIVER PCL11 42 FIXED FLOAT <<4004200>,<"004240>,= 
0174 784 <*004300>, <4004346>5,8,NOSUPPOR 
0178 785 UBADEV VB,VBDRIVER,VS100,1, FLOAT. FLOAT, . 4 ,NOSUPPORT 
17¢ £86 UBADEV PT,PUDRIVER.TU81 .1,FLOAT.FLOA “4 
180 7 UBADEV 0Q,0QDRIVER.KMV }-g-FLOAT AT.FLOAT,1 NOSUPPOR 
184 788 UBADEV Uk UK RIVER KC C132 cF IXED "FLOAT 16 PS > ot 004440>. ~ 
184 789 <*60450 04546>5,8, NOSUPPORT 
188 790 UBADEV 1x-1XORIVER, 160 11, Tite: FLOAT, <<*004100>>,8,NOSUPPORT 
1 791 UBADEV TX, VEDRIVER. DHV11 FLOAT FLOAT. 16, 
1 79 UBADEV COMBO,OSDRIVER, DM? $. FLOAT FLOAT, 4 :OSDRIVER means don't load a 
194 79 UBADEV COMBO, -OSDRLVER | 6-FLOA er LOAT. 32.4 :OSDRIVER means don't load a 
198 79% UBADEV pT DIORIVER, tcf ob AXED Fixe, <<*61 75403. <*0214>>,° 
19. 795 aosy Baily * here plac ehotde 
19¢ 79 UBADEV ye, VCDRIVER, vco18, 2: FIXED FIXED, <<"O17 00>.<*0060>> 
00000000 140 29 LONG END OF LIST 
000001F4 O1A4 79 -BLKL 20 : PATCH SPACE 


K 9 
| AUTOCONEG = AUTO CONFIGURATION OF DEVICE DATA BASE 15-SEP-1984 23:37:41 VAX/VMS Macro v04-00 
y04e500 AUTOCONF IGURATION TABLES 46-SEP-1984 $3i35it6 BOOTS. SRC JAUTOCONFG.MAR;1 
ike 1 MEB 
wl 
1F4 ; ACFSAB_DAFSS. TABLES 
1F4 4; COMBODEV DEVNAME ,DRVNAME ,NUMVECT,VEC_OFFSET,CSR_OFFSET, 
1F4 05 ; MASK, SUPPORT =SUPPORTED 
1F4 8 COMBODEV XG, XGDRIVER, 2, 0, 4, 4 : Syne 
00000F D <PSECT ACF SDEVNAME 
41 47 58 9" OFD SASCIC \XGA\ 
18 .PSECT ACFSRESET 
ape BH En 
52 45 56 49 52 44 47 58 09° 6 SASCIC \XGDRIVER\ 
000 4 -PSECT ACFSDEVDESC 
0004 0834 ;WORD 4 
000000FD° 08 4 “LONG  $XG$ 
00000226" B3A “LONG  $XGDRIVERS 
: OBE “BYTE 
0000 083F WORD 
00000004 0841 “LONG 
01 0845 “BYTE $$$ 
sae -PSECT NONPAGED_DATA  rd,wrt,noexe,quad 
00000834" O1F4 “LONG  $DEV 
1F8 808 COMBODEV TX, YCDRIVER, 2, 16, 12, 8 : Async 
0022F <PSECT ACF SDRVNAME 
52 45 56 49 52 44 43 59 99° 6 i “ASCIC \YCDRIVER\ 
000846 .PSECT ACFSDEVDESC 
0008 0846 “WORD 
000000F 1° 0848 “LONG $TX$ 
00000286 ° B4C “LONG  $YCDRIVERS 
: 0850 -BYTE 2 
0010 0851 ;WORD 16 
0000000¢ 0853 “LONG 12 
01 085 .BYTE $$$ 
000001F 8 -PSECT NONPAGED_DATA' rd,wrt,noexe,quad 
00000846' O18 “LONG  $DEVDESCS 
1FC 9-809 COMBODEV XI, XIDRIVER, 2, 8, 24, 1,NOSUPPORT; DR 
00000101 <PSECT ACF SDEVNAME 
41 49 58 b191 SASCIC \XIA\ 
001C .PSECT ACFSRESET 
000001 001 “ADDRESS $$$ 
“PSECT ACF SORVNAME 
52 45 56 49 52 44 49 58 00° 0 "ASCIC \KIDRIVER\ 
iJ: .PSECT ACFSDEVDESC 
085 “WORD 1 
00 085A “LONG $XI$ 
00000238" 085 “LONG  $XIDRIVERS 
186 BYTE 
086 ~ WORD 
00000018 086 “LONG 24 
0869 “BYTE $$$ 


sli" 


41 


52 45 56 49 52 44 


= AUTO CON 
AUT FIG 
1FC 
ooo00sse® if 
ao 
43 4 g 1 
1 
00000 
00000109 ¢ 
43 4¢ 41 
41 
6A 
69 6A 
000001 B6e 
00000241" 08 
01 Bare 
0018 0 3 
00000014 087 
01 0878 
ie 134 
0000086A" 0200 
ah 
00000000 04 
0208 
os 08 
$08 
0208 
0208 
0208 
0208 
0000087C 
0001 O87C 
QOO000F1* O87E 
0000022F* 0882 
5 ite 
00 88 
00000004 0889 
01 088D 
00000208 
0000087C' Bsoe 
oc 
00088E 
68 é of 
ti re 9 
00022F* 0894 


Sskesonnsese 


s 
ey ee 


URATI 


oo 
pars 
o 
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Ss 
WONAOUS WI 


820 


821 
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Morse DATA BASE 17236-1386 93:33 :4) 


.PSECT NONPAGED_DATA 
.LONG $DEVDESC 
COMBODEV LC, LCORIVER, 
<PSECT ACF SDEVNAME 
SASCIC \LCA\ 
.PSECT ACFSRESET 

$ $$$ 


ACF SDRVNAME 
\LCORIVER\ 


ACFSDEVDESC 


$LCS 
» LONG ge sen ivens 
- WORD 4 
$$$ 
NONPAGED DATA 
SDEVDESCS 
-LONG 0 


ACF SAB_DMZ32_TABLE: 


AX/VMS Macro Vv04-00 


19 2:16 (CBOOTS.SRCJAUTOCONFG.MAR;1 
rd,wrt,noexe,quad 

Ne 24, 20, 2 Ps LP 
rd,wrt,noexe,quad 


; END OF LIST 


COMBODEV DEVNAME ,DRVNAME ,NUMVECT,VEC_OFFSET,CSR_OFFSET, 
MASK , SUPPORT=SUPPORTED 


COMBODEV TX, YCDRIVER, 
<PSECT ACFSDEVDESC 
“WORD 1 

“LONG $TX$ 

“LONG  $YCDRIVERS 
“BYTE 2 

“WORD 0 

“LONG 

<BYTE $$$ 

*PSECT NONPAGED_DATA 
“LONG $DEVDESC 
COMBODEV TX, YCORIVER, 
<PSECT ACF SDEVDESC 
“WORD 

“LONG $TX$ 

“LONG $YCDRIVERS 
BYTE 

“WORD 

“LONG 12 

-BYTE $$$ 

*PSECT NONPAGED_DATA 
“LONG  $DEVDESCS 
COMBODEV TX, YCORIVER, 
-PSECT ACF SDEVDESC 
"WORD 4 

“LONG $TX$ 

"LONG $YCDRIVERS 
"BYTE 2 


% & * 7% ; Async 
rd,wrt,noexe,quad 

a 8. We 2 3 Async 
rd,wrt,noexe,quad 

2, 16. 20, 4 3 Async 


[ a9 
TOCONFG = AUTO CONFIGURATION OF DEVICE DATA BASE 15-SEP-1984 23:37:41 VAX/VMS Macro V04-00 Pa 
y04~000 AUTOCONF IGURATION TABLES 46-SEP-1984 $3:35i%6 Heoors sre AUTOCONFG.MAR; 1 - 
10 OBAB «WORD 1 
00000012 AD ~LONG § 
$500 Bitte NONPAGED DATA rd,wrt d 
° ro,wrt,noexe,qua 
000008A0' 10 “LONG SDEVDESCS * 
00000000 14 .LONG 0 : END OF LIST 
1 5 
6 ACFSAB_CP132_TABLE: 
1 8 8 COMBODEV DEVNAME ,DRVNAME ,NUMVECT,VEC_OFFSET,CSR_OFFSET, 
| 9 MASK, SUPPORT=SUPPORTED 
1 H 1 COMBODEV XG, XGDRIVER, 2, 0, 4, 1 z Sync 
0000088 <PSECT ACFSDEVDESC 
0001 O88 <WORD 1 
Q00000FD' 0884 .LONG  $XxG$ 
00000226" 0888 ;LONG  $XGDRIVERS 
2 08BC -BYTE 2 
0000 088d -WORD 0 
00000004 O8BF . LONG 
01 O8C3 -BYTE $$$ 
Ste fF -PSECT NONPAGED DATA rd,wrt,noexe,quad 
00000882' 0 18 “LONG  $DEVDESCS 
21C = 832 COMBODEV XG, XGDRIVER, 2, 8, 12, 2 : Sync 
000008c4 <PSECT ACFSDEVDESC 
0002 08C4 <WORD 2 
QO0000FD’ 08C6 .LONG  $XG$ 
00000226" O8CA “LONG  $XGDRIVERS 
02 O8CE <BYTE 2 
0008 O8CF <WORD 8 
0000000C 08D1 <LONG 12 
01 08D5 -BYTE $$$ 
0000021C¢ -PSECT NONPAGED_DATA  rd,wrt,noexe,quad 
000008C4' 021¢ “LONG  $DEVDESCS 
0220 833 COMBODEV XG, XGDRIVER, 2, 16, 20, 4 3 Sync 
00000806 <PSECT ACFSDEVDESC 
0004 0806 .WORD 4 
000000FD" 08D8 [LONG  $XG$ 
00000226" O8DC -LONG $XGDRIVERS 
98 O8E0 -BYTE 2 
0010 O8€1 <WORD 16 
00000014 OBES “LONG 
01 -BYTE $$$ 
00000220 -PSECT NONPAGED_DATA’ rd,wrt,noexe,quad 
00000806" 0 9 oa -LONG $DEVDESCS 
00000000 4 835 .LONG 0 : END OF LIST 
7 
0 a ACFSAB_CLASS. TABLE: 
: B40 3 CLASSDEV DEVNAME ,DRVNAME ,PORTDEV 
8 Bt CLASSDEV DU,DUDRIVER,PU 
000001 -PSECT ACF SDEVNAME 


an 
—— 


oleia® 


52 45 56 49 52 44 


41 


52 45 56 49 52 44 


= AUTO CON 
AUTOCONF IG 
55 44 ‘s 109 
109 
0000024 
000001 BO ce 
55 44 09° GA 
4A 
Q0008E8 
00000109' +t 
ag ta BEC 
55 5 89" O8FO 
96000328 
000022 
000008E8" 8 se 
C 
0000010D 
55 4D 00° 010D 
03 0100 
0000002 
00000111° 4 f3 
000002 
55 54 00° 025 
08 pe23 
000008F 3 
0000010D° O8F3 
00000253° O8F7 
54 50 00° O8FB 
02 08FB 
0000022C 
000008F 3° ogee 
0230 
00000000 0230 
0234 
OS3¢ 
0234 
0234 
0234 
0000002C 
002C 
00000000 ones 
0030 
00000044 0030 
0044 
one? 
44 
0044 
0044 
00000234 
Ose 
00000238 34 
Se pOS ec 0238 
Q000023E 0235¢ 
Boonosey if 
00000241 rt 
0241 
00000243 0241 


cm 
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ey OF DEVICE DATA BASE 15-SEP-1984 $9354) BOOTS. SRC JAUTOCONFG.MAR: 1 


A 

ON TABLES 4-SEP-1984 25:02:16 
eASCIC \DUA\ 

»PSECT ACFSRESET 

ADDRES 


-PSECT ACFSORVNAME 
SASCIC \DUDRIVER\ 


«PSECT ACFSDEVDESC 
«LONG S$DEVNAMES 
0° tea 


UR 
TI 


elo 
=2 


- LONG 
eASCIC 
»PSECT roe 


“LONG $ 
CLASSDEV MU TUDRIVER, PT 
<PSECT ACF SDEVNAME 
SASCIC \MUA\ 
-PSECT ACFSRESET 
“ADDRESS $$$ 
“PSECT ACFSDRVNAME 

CIC \TUDRIVER\ 
.PSECT ACFSDEVDESC 
~LONG SDEVNAMES 
SORVNAMES 
\PT\ 


rd,wrt,noexe,quad 
843 


- LONG 
-ASCIC 
-PSECT NONPAGED DATA 
-LONG $DEVDESCS 


-LONG 0 


rd,wrt,noexe,quad 


: CONTROLLER DESIGNATOR RESET POINTER TABLE END 


-PSECT ACFSRESET 
-LONG 0 : 
-BLKB 20 ; PATCH SPACE 


: UBA VECTOR AND CSR BASE OFFSETS 


-PSECT NONPAGED_DATA 
rik g DE YHARE : ~BLKL 
ACF : -BLKL 
ACESAW VECTOR: ~-BLKW 
> .BLKW 
ACFSAB-NUMVEC: .BLKB 


69 ACF SW. CSRBASE: ; 


rd,wrt ,noexe,quad 


PDP DED DAD sss & 
ee ae | 


SOWDWNA UE WN $9 OONAUES WN O OONAOUE 


me 8, 


| AUTOCONE G - AUTO CONF IGURAT 10N OF DEVICE 8,12 BASE 15-SEP-1984 33:37 :41 VAX/VMS Macro V04-00 Page 23 
| AUTOCONF IGURATION TABLES 4=SEP-1984 :16 [BOOTS.SRCJAUTOCONFG.MAR; 1 (1) 
| 0243 871 ACFSW -VECBASE ; 
00000245 0 4 876 -BLKW 1 : 
45 873 ACFSL_SYS CSR: : SYSTEM DEVICE CSR ADDRESS 
00000249 0245 874 LkKL 1 
0249 875 ACF$B_B00T_TR: ; SYSTEM DEVICE ON THIS ADAPTER 
0000024 0249 876 1 
024A 877 ACFST_SYS_DEVNAME: : SYSTEM DEVICE NAME 
0000025A 024A 878 .BLKB 16 
025A 879 
025A 880 .NLIST MEB 


—_-------—-- 


ee ee ee reneee Se a 


AUTOCONFG = AUTO CONFIGURATION OF DEVICE pafa's BASE 15-SEP-1984 33:30:41 AX/VMS Macro v04-00 Page 24 
v04=000 AUTO CONFIGURATION OF DEVICE DATA BASE 4-SEP-1984 23:02:16 (CBOOTS.SRC AUTOCONFG.MAR; 1 (1) 
8 . ¢ ir ~SBTTL AUTO CONFIGURATION OF DEVICE DATA BASE 
8 2h 23 : IOCSAUTOCONFIG = AUTO CONFIGURATION OF DEVICE DATA BASE 
or Bg : ; THIS ROUTINE IS CALLED TO AUTO CONFIGURE THE DEVICE DATA BASE FOR A SINGLE ADAPTER 
3A B88 ? INPUTS: 
025A 890 RG = ADDRESS OF CONFIGURATION STATUS REGISTER. 
025A 891; R7 = ADDRESS OF CONFIGURATION CONTROL BLOCK 
8 “A gag 3 3 = ADDRESS OF ADAPTER CONTROL BLOCK. 
025A $32 OUTPUTS: 
bg28 895 ; 
025A 896 ;- 
025A 897 
oe +43 -PSECT NONPAGED_CODE rd,nowrt,exe,long 
0000 900 IOCSAUTOCONFIG:: yAUTO CONFIGURE DEVICE DATA BASE 
00000249"EF 94 0000 901 CLRB  ACF$B_BOOT_TR INITIALIZE LOCAL FLAG BYTE 
50 QO0O00'°CF 9E 0006 ang MOVAB Wace She ABPTYPE RO GET ADDR Ess OF aonnten TABLE 
—E A8 80 B61 0008 903 108: CMPW (RO)+, ADPSW -ADPTYPE(R8) ‘ADAPTER TYPE MATCH? 
OA 13 OOOF 904 BEQL 31F VES 
50 04 CO 0011 905 ADDL #ADAPTERLEN-2, RO. ANCE TO NEXT ENTRY 
60 B65 0014 906 TSTW = (RO) ANY mel! ENTRIES IN TABLE? 
F353 12 0016 907 BNEQ 10$ 
50 D4 0018 908 CLRL RO ‘INDICATE NO ADAPTER 
05 OO1A 909 RSB 3 
aie 31% 
Baie aig ; ADAPTER TYPE MATCH = INITIALIZE CONFIGURATION BLOCK AND DISPATCH TO ADAPTER CODE 
0018 914 ° 
DO 001B 915 20$ MOVL RB, ACFSL_ADAPTER(R7) SET ADDRESS OF ADAPTER CONTROL BLOCK 
04 A? 56 DO OOIE 916 MOVL R6, ACF $L~ CONF IGREG(R7) [SET ADDRESS OF CONFIGURATION STATUS REGISTE 
51 1C AB Q00000000'GF C3 0022 917 SUBL3 G*EXESGLSCB, - sCALCULATE OFFSET INTO SCB OF 
0028 918 DPS$L Se ectaataty sADAPTER'S INTERRUPT VECTORS. 
08 A7 51 BO 002B 919 MOVW R1, gat CF Su CTOR(R7) STORE IN ACF. 
90 17 002 920 JMP :DISPATCH TO PROPER ROUTINE 


re 


SSS 


D 10 
| AUTOCONFG = AUTO CONFIGURATION OF DEVICE DATA BASE 15-SEP-1984 23:37:41 VAX/VMS Macro V04-00 Page 25 
beeen ACFSMBA = MASSBUS ADAPTER AUTO CONF IGURA 273E b= 138 $3354 BOOTS. SRCJAUTOCONFG.MAR; 1 - 
| 0 2 ; .SBTTL ACFSMBA = MASSBUS ADAPTER AUTO CONFIGURATION 
9 3 4 + ACFSMBA = MASSBUS ADAPTER AUTO CONFIGURATION 
| 09 3 $ : THIS ROUTINE IS CALLED TO AUTO CONFIGURE A MASSBUS ADAPTER. 
| 0031 3 : : INPUTS: 
$031 930 : RG = ADDRESS OF CONFIGURATION STATUS REGISTER. 
0031 931: R7 = ADDRESS OF CONFIGURATION CONTROL BLOCK. 
0031 93¢ : RB = ADDRESS OF ADAPTER CONTROL BLOCK. 
3H $34 : OUTPUTS: 
0031 936: A SCAN IS MADE FOR EACH OF THE POSSIBLE DRIVE TYPES THAT CAN BE ATTACHED 
0031 937: TO THE ADAPTER. AS EACH DRIVE TYPE IS ENCOUNTERED, A CO-ROUTINE CALL IS 
9031 938 ; MADE TO THE CALLER DELIVERING THE DEVICE UNIT DESCRIPTOR. 
0031 940 
0031 941 .ENABL LSB 
0031 942 ACFSMBA: sAUTO CONFIGURE MASSBUS ADAPTER 
1E A? 01.,—s«9s«0031—sH MOVB #1,ACF$B_CNUMVEC(R7) ‘SET NUMBER OF CONTROLLER VECTORS 
10 A708 A? BO «(00385 )«=— (944 MOVW  ACFS$W_AVECTOR(R7) ,ACFSW_CVECTOR(R7) ;SET CONTROLLER VECTOR OFFSET 
55 OO1A'CF 9E OO03A 945 MOVAB W*ACFSAB_MBATABLE ,R5S :GET ADDRESS OF MBA DRIVER DESCRIPTOR TABLE 
54 85 DO OO3F 946 10S:  MOVL (R5)+,R4 [GET ADDRESS OF NEXT DRIVER DESCRIPTOR 
03 12 0042 947 BNEQ 20% [IF NEQ ANOTHER ENTRY TO PROCESS 
50 04 0044 948 CLRL = RO [SET END OF SCAN INDICATOR 
05 0046 949 RSB ; 
0047 950 
0047 951; 
0047 928 ; SCAN MBA UNITS FOR DEVICE TYPE MATCH 
0047 953; 
0047 954 
0745 30 0047 955 208 BSBW ACFSCLR_ACF :CLEAR DEVICE BLOCKS 
14 A7 84 DO 004A 956 MOVL  (R4)+,ACFSL_DEVNAME(R7) SET ADDRESS OF DEVICE NAME STRING 
18 A? «(84 «600 «(004E §«= «957 MOVL  (R4)+.ACF$ NAME(R7) :SET ADDRESS OF DRIVER NAME STRING 
53 D4 0052 «(958 CLRL = RB [CLEAR DRIVE OFFSET CONSTANT 
52 64 9E 0054 959 308 MOVAB (R4),R2 [GET STARTING ADDRESS OF DRIVE TYPE TABLE 
51 0418 C643 00 0057 960 MOVL MBAS$L_ERB+MBA_DT(R6)CR3].R1 ;READ DRIVE TYPE REGISTER 
51. 3600 8F AA 005D 961 BICW #*C<*RCIFF> RT 'CLEAR EXTRANEOUS BITS 
50° 08 A6 00 0062 96 MOVL $ MBAS$L_SR(R65,RO ‘READ MBA STATUS REGISTER 
08 A6 «6550 «0 0066S (6 MOVE 0,MBASL_SR(R6) SCLEAR MBA STATUS REGISTER 
15 50 12 £0 006A 964 BBS #MBASV_SR_NED,RO,50$ § ;I1F SET, NONEXISTENT DRIVE 
05 51 OF E1 006 965 BBC #15,R1,408 SIF CLR. NOT TAPE DEVICE 
51 3607 BF AA 0072 966 BiCw  #*C<*xt1F8>,R1 : FOR TAPE, RETAIN CONTROLLER 
007 967 : SPECIFIC INFORMATION ONLY. 
82 51 B81 9077 968 40$:  CMPW  R1,(R2)+ [DRIVE TYPE MATCH? 
5313 «007A = «969 BEQL «460 [IF EQL YES 
62 B5 007C 970 TSTw (R2) TANY MORE ENTRIES IN TABLE? 
fF? 12 OO7E 971 BNEQ 40$ TIF NEQ YES 
0041 +31 08 78 BRW 56$ 'GO LOOK FOR MORE UNITS 
50 00000000'GF 000186A0 8F C5 008 974 50$:  MULL3 #100000,G*EXESGL_TENUSEC,RO ;INIT LOOP COUNT; 
0404 C643 D4 OOBF 975 CLRL MBASL_ERB+MBA_DSTR6)(R3J: ATTEMPT TO SEIZE THE PORT 
51 0418 C643 b9 094 976 52$:  MOVL MBASLTERB+MBA"DT(R6)CR3J.R1_ ; READ DRIVE TYPE REGISTER 
15 13 QO9A 977 BEQL 4 : IF EQL, THEN NO PORT 
0400 (643 0B 9A 009C 978 MOVZBL #*XOB,MBASL_ERB(R6)CR3] ; RELEASE THE PORT 


= ————_——— 
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v04-000 ACR A = MASSBUS ADAPTER AUTO CONF IGURA 2786-1382 $3; 35; :16 Yeoots sre AUTOCONFG.MAR; 1 - 
50 08 AB D A 79 MOVL $MBASL_SR(R6),RO ZREAD MBA STATUS REGISTER 
08 A6 28 58 A 3 0 MOVL RD nas SR( RO) :CLEAR MBA STA Tus REGISTER 
51 3600 8F AA OOAA 981 BICW #et<*xXCIFF>,RI1 ; CLEAR EXTRANEOUS BITS 
C6 11 at 3 : an BRE 40$ + GO LOOK FOR DRIVER TYPE MATCH 
51 08 A6 dO 0089 984 MOVL MBASL SR(R6) RI :READ MBA STATUS REGISTER 
8A6 51 00 O0BD 985 MOVL J MBASL_SR (RE) ZCLEAR MBA STATUS REGISTER 
00 50—séF oc! 3 6 SOBGTR RO: 5 tIF GTR, TRY tO" READ DT REGISTER AGAIN 
FF88 53 20 = ODEO BF 3 0C4 $86 56$: ACBW #*X80/4*7,#°xX80/4,R3,30$ ;ANY MORE UNITS TO EXAMINE? 
FF70 31 OOCC 989 BRW 10$ YES 
ae 
OOCE 99 : MBA DRIVE TYPE/DEVICE TYPE MATCH = DELIVER ALL UNITS TO CALLER 
OOCF 994 ° 
3951 OF €0 OOCF 995 60$: BBS #15,R1, ACF SMBATAPE :1F SET, TAPE DEVICE 
9005 996 
00D 997 ; 
00D3 998 : DEVICE IS A DISK 
00D 999 ;: 
00D3 1000 
00D3 1001 ACFSMBADISK: ; 
0C A? 56 DO 00D3 1002 MOVL  R6,ACFSL_CONTRLREG(R7) :SET ADDRESS OF CONTROL usiatus gREGISTER 
51 14 A7 00 00D7 1003 MOVL ACFS$L_DEQNAME(R7) ,R1 [GET ADDRESS OF DEVICE NAME STRING 
52. 61 9A O0DB 1004 MOVZBL (R1),R2 :GET LENGTH OF STRING IN BYTES 
6142 41 8F OB AB 81 OODE 1005 ADDB3 ADP$B_NUMBER(R8),#*A/A/,(R1)CR2] ; CALCULATE LAST BYTE OF DEVICE NAME 
00E5 1007 ; 
OE 1008 : CONSTRUCT UNIT DATA BASE AND DELIVER TO CALLER 
SOEs 1010 * 
50 53 20 C7 00E5 1011 708:  DIVL3 #° x80/4 R3,RO : CALCULATE ADAPTER DRIVE NUMBER 
OA A? «650 «690 «—(00E9 1018 MOVB 0,ACF$B_AUNIT(R7) ‘SET ADAPTER UNIT NUMBER 
12 a7 50 80 OOED 101 MOVW RO LACE SUT CUNIT(R7) [SET CONTROLLER UNIT NUMBER 
oo7c'ce 53 7D OOF1 1014 MOVQ R3,W*ACFSL_R3SAVE [SAVE REGISTERS 
0084'CF 55 DO OOF6 1015 MOVL RS, UAACFSL™ “RSSAVE : 
50 01 DO OOFB 1016 MOVL ot RO :SET SUCCESS INDICATOR 
9E 16 OOFE 1017 JSB asp) [DELIVER UNIT TO CALLER 
53 OO7C'CF 7D 9100 1018 MOVO tie _R3SAVE ,R3 ;RESTORE REGISTERS 
55 0084"CF pd 0105 1019 MOVL  W*ACFSL-RSSAVE.RS 
B8 11 O10A 1920 BRB 56$ ‘BRANCH TO TEST FOR MORE DRIVES 
O10¢ 19 § 3 
10¢ 1 : DEVICE IS A TAPE 
010C 1024 : 
010¢ 1025 
10C 1026 ACF SMBATAPE : ; 
51 (C060 8F B81 010C 1027 CMP #*xXC040,R1 ; TEST CONTROLLER TYPE 
60 13 0111 1028 BEOL + BRANCH I 
50 53 20 C? O113 1029 DIVL3 #*X80/4,R3,RO CALCULATE ADAPTER UNIT NUMBER 
OA a? 9 90 0117 1030 MOVE RO, ACF$B aANe [SET ADAPTER UNIT NUMBER 
007C'CF 7D 0118 1031 MOVQ R “WT ACE SL R3SAVE ;SAVE REGISTERS 
0084 CF 53 pO 01 19 : MOVL RSA ve 
52. 0400 C643 DE 0125 1 MOVAL sth grec R3).R2_ :GET ADDRESS OF DRIVE CONTROL REGISTER 
OC A? 52)—oiOs«012B C1034 MOVL ACFS$L_CONTRLREG(R7) :SET ADDRESS OF DRIVE CONTROL REGISTER 
51 «4 «(O12F «(1035 CLRL [CLEAR STARTING SLAVE DRIVE ER 


ee OE oo 
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AUTOCONF G = AUTO CONFIGURATION OF DEVICE DATA BASE 15-SEP-1984 23:37:41 VAX/VMS Macro v04-00 Pp 7 
| 04-000 ACP EMBA o MASEEUS ADAPTER KUT POMPICORA "ZnSepotone SS:Oo;ta Lemay es meGKo recone c.mans1 P2%* 27, 
131 1939 
§ ; CONSTRUCT UNIT DATA BASE AND DELIVER TO CALLER 
131 1040 ° 
24 A2 1 pO 0131 14) 110$:  MOVL R1,TMO3_TC(R2) » SELECT SLAVE DRIV 
50 18 A2 _FFFFOIFF f CB 0135 «(1 4g BICL3 BE<“AFEOG> ,WBA_DT (RZ) RG sCLEAR EXTRANEOUS BITS 
50 400 oF 8} 135 1043 cnPY #*XC400,R :SLAVE TAPE DRIVE AND PRESENT? 
0074'CF 1 7D 0145 1045 MOVQ = R1,W*ACFSL RISAVE TSAVE REGISTERS 
12 A7 1 BO O146A 1046 MOVW = R1, ACF S4_ CONIT(R7) 3SET CONTROLLER UNIT NUMBER 
50 g1 dO O14 104 MOVL 4#1,R0 3SET SUCCESS INDICATOR 
—E 16 0151 1048 JSB a($p)+ :DELIVER UNIT TO CALLER 
51 074'CF 7 0133 1049 MOVQ W*ACFSL_RISAVE,R1 gRESTORE REGISTERS 
dS 51 7 £3 0158 1050 120$:  AOBLEQ #7,R1, sANY MORE SLAVES TO PROCESS? 
52 14 a7. 00 O13¢ 1051 MOVL ACF SL. DEVNAME (R7) ,R2 3GET ADDRESS OF DEVICE NAME STRING 
51 9A 169 1936 MOVZBL (R2),R1 3GET LENGHT OF STRING IN BYT 
62 96 0163 105 NCB r2)(R1) SINCREMENT CONTROLLER DESIGNATION 
53. OO7C'CF 7D 0166 1054 MOVQ W*ACFSL_R3SAVE,R3 sRESTORE REGISTERS 
55 0084'CF DO 0168 1055 MOVL W*ACFSL_RSSAVE,R5 3 
FF 31 017 1938 BRW 3 
B13 1088 
0173 1059 : TM78 SPECIFIC CODE 
Sie 60 
50 3 20 c7? 017 106¢ 130$: DIVL3 #*x80/4,R3,R0 CALCULATE ADAPTER UNIT NUMBER 
OA 50. «90 177 106 MOVE RO, ACF$B8_AUNIT(R7) :SET ADAPTER UNIT NUMBER 
OO7C'CF 53 7D 017B 1064 MOVa R3,W*ACFSL_RSSAVE ySAVE REGISTERS 
0084'cF 55 00 9180 1065 MOVL R5,W*ACFSL_RSSAV 3 
52 0400 C643 ODE 185 1066 MOVAL MBASL_ERB(R6)(R3).R2 7GET ADDRESS OF DRIVE CONTROL REGISTER 
0c A? «—52~—=Céd o18F 1067 MOVL R2,ACFSL_CONTRLREG(R7) ;SET ADDRESS OF DRIVE CONTROL REGISTER 
18F 1069 ; 
O18F 1070 ; Initialize TM78 controller. 
SIBE tore 
44 A2 ogyetene or cs bier 1978 La SOLS A. TACLA. TH7O_1 (RE); goeee WATS controller to initial state. 
° unter. 
FD 51 FS 0198 1075 1408: SOBGTR R1,140$ 3 Waste a Little time while TMCLR starts. 
51 001€8480 8F 00 HH} 1978 OVL #2600000,R1 : Set counter to wait for TMCLR to end. 
50 44 A2 DO QO1AS5 1077 1508: MOVL TM78_ID(R2) RO 3; Read 1M78 register. 
50 00008000 8F D3 OIA9 1 ve ITL #T478_M_TMRDY,RO : See if TMCLR done yer. 
6 ig 180 107 NEQ 0$ ; NEQ implies that TACLR is done. 
FO 51S F 1B2 1080 SOBGTR R1,150$ ; Else loop back and test again. 
007731 18 1081 nie W 26$ : If we fall thru, TM78 did not come READY. 
51 D4 188 i "  CLRL oR SCLEAR STARTING SLAVE DRIVE NUMBER 
1BA 1085; 
H 19 § : CONSTRUCT UNIT DATA BASE AND DELIVER TO CALLER 
1BA 1 : 
50 AA7Z 9A OQ1BA 1088 170$: MOVZBL ACF OD METER?) RS ; Pickup which MASSBUS device we are. 
50 01 50 78 QIBE 1090 ASHL RO,#1,R ; Shift to appropriate attention bit. 
1¢ a¢ D4 C6 1091 CLRL TH?8 bs (Ra) ; Clear any old device info. 
10 a2. 5 DO O1C5 1092 MOVL RO, TA78_AB(R2) ; Clear attention bit. 


"9 - Page 28 
FIGURATION OF DEVICE pata BASE 15-SEP-1984 7:41 ye Macro v04-00 ; 9 
WOu-000" ach mae MASSeUS ADAPTER AUTO CONFIGURA 4-SEP-1 138 $3: 35; :16 Yeoors sre AUTOCONFG.MAR;1 (1) 
: ive ya 
1 1¢9 1093 PUSHL R : Save dr 
- ra br mA ae 3¢ 180$: Soueth R 706Re ; poste to while ATTN bit clears 
PRES i Ge it ranorocnzstanai etree feet 
A244 i) 105 109 MOVL aM nse _60,1M78_N ; Set s Niet 
51 spiatl ° D Hs } 4 1908; MOVL ain78 SENS 3 Set count " rn: 2B 
: ; MBA status register to s 
08 A6 OD 1E1 1100 PUSHL MBASL_SR(R6) : Copy jeter ye 8 
8E G0010000 BF »D \ee " BITL aRASA SR_ATTN, (SP)+ in nok tatus registers ce 
oo 1€B 11 BNEQ 00$ : NEQ implies a en be a oe oe 
" 5 : ifB ii é 200$S: sepeneth hss ship : Oy Fag nee” non attention bit came 
if i $ ; 3 nt ape teee aove out. 
: re drive e 
10 A2 s a IFS 1108 Bite RO, TM78_AB(R2) : Assure TH78 NO attention which 
: if 1140 = 216s : means the device doesn't respond so 
iF3 Wi ; “sand 4 ag RP register to stack 
: ce ‘ 
M; hs DD i 1143 PUSHE ee +t Le : Copy Iteettan bee data to stack. 
10 a2. 5 DO OFF 1114 VL RO, TA78_AB(R2) ; Clear atten ait 
H feet + ess aE Rove o 2(SP) : £907 ie Blak weed on os TOP OF STACK. 
Se 28 gene 0508 W9 POPL RO ; RO = drive status in low word, 
ates 6 oD 1118 : interrupt status in high word. 
0308 1130 : if t back DONE status. 
1120 CMPZ2V = #16,#6,R0,#1 : See we go . 
” sa 3 D 0 13 Hi BNEQ 2108 3: If not, then device is NO GOOD 
; Branch if drive not present. 
13 50 O€ 1 0214 11 BBC #14,R0 2108 SAVE REGISTERS 
cr a A i OE ce Ca 
50 O01 00 1 #11 § MOVL 148%, ise ea anit 10 . 
9E 16 4 11 JSB a(SP Tee ea crens 
"35 tame 4 8 | 4 i § $308: AOBLEG Whe t708 - ant SORE SLAVES TO PROCESS? 
Osse taay oot F DEVICE NAME STRING 
52 4A? 00 O22F 1131 now ACESL FEVMANE (RT) . oR2 Get yt a ohne in artes 
1 of be 58a 1 5 INCB (R33 ¢R1 TINCREMENT CONTROLLER DESIGNATION 
are 3 § 1134 MOva W*ACFSL_R3SAVE R35 sRESTORE REGISTERS 
38 Ob ac CF 4 5 1135 _ YeACFSL RISAVE .R9 : 
aN : 8 té i $ -DSABL LSB 


| 
| 
| 
| 
a 
| 
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TOCONFG = AUTO CONFIGURATION OF DEVICE DATA ASE 15-SEP-19 7:41 YAX/ vs Macro v04-00 
“04-000 ACF SDR - DRaS ADAPTER AUTO CONFIGURATION ae et} 7 $3 2:16 feoors: SRC JAUTOCONFG.MAR; 1 
46 1139 .SBTTL ACFSDR = DR32 ADAPTER AUTO CONFIGURATION 
46 1141 : ACFSDR = DR32 ADAPTER AUTO CONFIGURATION 
| 46 1148 : THIS ROUTINE IS CALLED TO AUTO CONFIGURE A DR32 ADAPTER. 
46 1145 : INPUTS: 
46 1146 : 
46 1147: Rg = ADDRESS OF CONFIGURATION STATUS REGISTER. 
46 1148 : R7 = ADDRESS OF CONFIGURATION CONTROL BLOCK. 
0 46 1149 : RB = ADDRESS OF ADAPTER CONTROL BLOCK. 
8 46 1181 : OUTPUTS: 
§ 46 1183 : A CO-ROUTINE CALL IS MADE TO THE CALLER DELIVERING THE DEVICE 
0246 1154: UNIT DESCRIPTOR. 
0246 1155: 
0246 1136 
0246 1157 ACFSDR: sAUTO CONFIGURE DR32 ADAPTER 
54 OO2E'CF DO 0246 1158 MOVL W*ACFSAB_DRTABLE,R [GET ADDRESS OF DRIVER DESCRIPTOR 
05 11 0248 1159 BRB ACFSSINGCE_DEVIC ites SBRANCH TO COMMON CODE 


3 


~ 
—_ 
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TOCONFG = AUT F DEVICE DATA BASE 15-SEP-19 
“004-000 ACF SC E 


iSET NUMBER ECTORS 
MOVW ACF S$W_AVECTOR(R7) AcE Su_CVECTOR(R?) ;SET CNTRLR VECTOR OFFSE 


O CONFIGURATION 0 4 23:37:41 VAX/VMS Macro v04-00 Pa 30 
1 CT RDAPTER AUTO CONFIGURATION © ‘GngEPci9BG S8:0e:16 Ledors sRcvAuTOCONrG.mar;1 2% 24) 
| 4D 116) -SBTTL ACFSCI = CI ADAPTER AUTO CONFIGURATION 
| 4D 188 ; ACFSCI = C1 ADAPTER AUTO CONFIGURATION 
| 4D 1165 ; THIS ROUTINE IS CALLED TO AUTO CONFIGURE A CI ADAPTER. 
| 4p 189 ; INPUTS: 
40 188 ; Rg = ADDRESS OF CONFIGURATION STATUS REGISTER. 
4D 1170 ; R7 = ADDRESS OF CONFIGURATION CONTROL BLOCK. 
4D 1121 RB = ADDRESS OF ADAPTER CONTROL BLOCK. 
0 178 OUTPUTS: 
175 ; A COROUTINE CALL IS MADE TO THE CALLER DELIVERING THE DEVICE 
176 UNIT DESCRIPTOR. 
Ke 
0 195 ACFSCI: AUTO CONFIGURE CI ADAPTER 
54 0032"CF 00 0 180 MOVL  W*ACFSAB_CITABLE.R4 © GET ADDRESS OF DRIVER DESCRIPTOR 
0 183 ACFSSINGLE DEVICES: ;COMMON ENTRY POINT FOR DR AND C1 
1E A? 01 0 183 MOUB #1 ACFSB_CNUMVEC(R7) OF CONTROLLER VECTO 
0 138 
0560 1187 
0 188 
0 189 
; 190 
191 
0 19¢ 
0 19 
0 19% 
0 195 
0 196 
0 19 
0 19 
19 


et te 8 ss ss 8 ek tt a a tt ta 


COO 0909 SIN NNPPA D I  E E 
MEMOS PNLS SOP OMNIS MVOC VVCVTVTVTTSO 


T 
OC A? «(56 «+O MOVL R6,ACFSL_CONTRLREG(R7) SOF CONTROL STATUS REGISTER 
51 8 DO MOVL  (R4)¢ [GET ADDRESS OF DEVICE NAME STRING 
146 A7 51. 00 MOVL R1,ACFSL_DEVNAME(R7) §:SET ADDRESS OF DEVICE NAME STRING 
18 A? «64—SCO*O MOVL  (R4),ACFSL_DRVNAME(R7) SET ADDRESS OF DRIVER NAME STRING 
52. 61 OA MOVZBL (R :GET LENGTH OF DEV. NAME STRING IN BYTES 
6142 461 8F OB AB 81 ADDB3 ADPS$B_NUMBER(R8) ,.#*A/A/,(R1)CR2) ;CALCULATE AND STORE L 
:BYTE OF DEVICE NAME 
OA A? CLRB = ACF $B_AUNIT(R7) [SET ADAPTER UNIT NUMBER = 0 
12 AZ B4 CLRW ACF SW~CUNIT(R7) [SET CONTROLLER UNIT NUMBER = 0 
0512 30 BSBW © ACF SCCR_ACF [CLEAR DEVICE BLOCKS 
50 01 00 MOVL #1,R [SET SUCCESS INDICATOR 
9E 16 JSB a(§p)+ [DELIVER UNIT TO CALLER 
504 7 CLRL = RO. :SET END OF SCAN INDICATOR 
05 8 RSB 


———_—_—_—_—_—__ 


| TOCONFG 
es: 


0000024A°EF 
00000245 ‘EF 
00000000 * GF 
20 Al OC 2 
00000249°EF 


2 ‘J 
50 _00000000°GF 
51 0084 CO 


51 


0241°CF 
0243"CF  00CO 
55 1090 


Nm 

- 

Re 

m 

be | 
MOOODOPMIUMy POOPY 
SSA RAR SS=5S5 Oo 


soocoseg tt 
0481 


om 
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ATION OF DEVICE DATA BASE 15-SEP-1984 
S ADAPTER AUTO CONFIGURAT 4=SEP-1984 


$3:32:4) AX/VMS Macro Vv04-00 Page 3 


2:16 (CBOOTS.SRCJAUTOCONFG.MAR; 1 ( 


~SBTTL ACFSUBA = UNIBUS ADAPTER AUTO CONFIGURATION 
; ACFSUBA = UNIBUS ADAPTER AUTO CONFIGURATION 


; INPUTS: 
; OUTPUTS: 


-ENABL LSB 


ACF SUBA: 
CLRB ACERT 51S. DEVNANE 


CLRL ACFSL_SYS_CS 
G*EXESG 


ACF 


a $8 _BOOT_TR 
MOVAB G*SYS$GL_BO00TUCB,RO 


MOVL CBSL_PDT(RO) ,R1 


MOVL §PDT$L_UCBO(R1) RO 
5$: MOVL  UCBSL=CRB(RO 


MOVL 
MOVAB UBA_IOBASE(R6) 
CMPL JDBSL_CSR(RI).Re 
BLEQU 9S 
MOVL  IDBSL_CSR(R1), 
OVL  UCB$LDDB(RO),R 
MOVZBL DDB$T~NAME(R15 
RO,ACF$T_SYS_DE 
MOVC3 RO,DDBST~NAME+1 
ACFST_SYS DEV 
9$: CLRB = ACF $B“AUNTT (R7) 
MOVW #*010,W*ACi SW_CS 
vw  #*0306,w*ACFSO_V 
MOVAB wW*ACFS$AB_UBATABL 
10$:  MOVL (R5)+,R4 
BNEQ 208 
CLAL 
RSB 


> SCAN UBA DEVICE 


208: CLRL ACFSGL_DPT 


BSBW = ACF SCLR_ACF 


A SCAN IS MADE FOR EACH OF THE POSSIBLE 
THE ADAPTER. AS EACH DEVI 
THE CALLER DELIVERING THE DEVICE UNIT DES 


DE 
cE IS grid: 


L_RPB,R1 
CMP ADPSU_TRTRB) ,RPBSL_BOOTR 


),R1 
CRBSL INTD+VECSL 1DB(R1) 


ACFSL 


-“~<2— 
oO 


; THIS ROUTINE IS CALLED TO AUTO CONFIGURE A UNIBUS ADAPTER. 


Rg = ADDRESS OF CONFIGURATION CONTROL REGISTER. 
R? = ADDRESS OF CONFIGURATION CONTROL BLOCK. 
R& = ADDRESS OF ADAPTER CONTROL BLOCK. 


VICES THAT CAN BE ATTACHED TO 
unt — CALL IS MADE TO 


AUTO CONFIGURE UNIBUS ADAPTER 
SET NO SYSTEM DISK ON THIS ADAPTER 


*GET ADDRESS OF THE RPB 
1(R1);ADAPTER CONTAIN SYSTEM DISK? 


SET FLAG FOR SYSTEM DISK ON THIS ADAPTER 
GET SYSTEM DEVICE UCB ADDRESS 

GET PORT DRIVER DESCRIPTOR TABLE ADDRESS 
;1F EQL RT DRIVER 


76 B ADDRESS 
~R1;GET SYSTEM DEVICE IDB ADDRESS 

:GET UNIBUS ADDRESS SPACE VIRTUAL ADDRESS 
'CSR IN UNIBUS ADDRESS SPACE? 


IF LEQU N 
_SYS_CSR;SAVE SYSTEM DEVICE CSR ADDRESS 
DDB ADDRES C 


GET 
sGET SYSTEM DE 
sSAVE SYSTEM 
sSAVE SYSTEM 


SYS EVICE 
E 


: Clear Soreerty loaded driver 
; Clear device blocks 


————————————x__ 
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TOCONFG = AUTO CONFIGURATION OF DEVICE DATA BASE 15-SEP-1984 23:37:41 VAX/VMS Macro V04-00 Page 3 
¥06 ACF SUBA = UNIBUS ADAPTER AUTO CONF IGUR ane 4-SEP- =}88¢ $3:35;44 Yeoors sre AUTOCONFG.MAR; 1 - it 
1447 664 D 9 1 58 MOVL = UBT$L_DEVNAME (RG) ,ACFSL_DEVNAME(R7) ;SET ADDRESS OF DEVICE NAME STRI 
18 A7 AA OD 1 MOVL § UBTSL-DRVNAME(R4),ACFSL-DRVNAME(R7) :SET ADDRESS OF DRIVER NAME STRI 
OO3E "CF : AG p 17 1260 MOVL UBTSL ROUTINE (R4) W*ACFSL ROUTINE 3SET ADDRESS OF DEVICE GENERATION 
iE A? AG 1D 1261 MOVE § UBTSB-NUMVEC(R4) ,ACFSB SB_CNOMVEC(R?) ;SET NUMBER OF CONTROLLER INTERRU 
53 13 a6 «(OO 6¢ MOVAB UB TSB “FLAGS (R4) ,R3 :¢ toby ADDRESS OF FLAG BYTE 
1264. : The supported characteristic remains only te suppress the error 
? ! 65 ; message in IOGENSLOADER that driver wasn't found. 
0B A? 10 = 88 6 1 89 B1SB2 #ACrSH_ SUPPORT, ACFS$B_AFLAG(R7) ; ASSUME NOSUPPORT 
04 63 98 4 A 1268 #UBA_V~ SUPPORT, (R3),23$ : BRANCH IF NOSUPPORT 
0B A? 1 : $9 B1CB2 PACE SM SUPPORT, ACFSB_AFLAG(R7) : SET SUPPORTED 
54 14606 OF 1 i 238: MOVAB uBT$u REMAINDER(R4) ,R4 ADDRESS OF VARIABLE BLO 
1763 0 g 6 1 ee BBC A_V_FLOATVEC,(R3),258 CLR, NO FLOATING LEETOR ASSIGNMENT 
51 C A 127 MOVZWL {ROD TR RT tt VECTOR MODUL 0 MASK 
0000006€ "EF 1 60 D 1274 MOVW §=-R1, ACF $W_VECMOD [SAVE FOR LATER US 
51 o43'Cr AO 0344 1275 ADDW weACF Su UeEGase, R1 : ROUND UP TO NEXT VECTOR 
8 AA 6 49 1 ud: BiCw = (R UNCATE TO ACTUAL VECTOR OFFSET 
o23e"Cr 1 BO O34C 127 MOVW RT UP ACr SAW SAVEVEC VE FOR CHECK LATER 
03 63 =—01 & 0351 1278 25$: BBC #UBA_V FepATeSNe (R3) Pint s1F cua FIXED CSR 
0086 1 O323 1279 BRW ACESOBRFLOATING 3 
se 1h 
035 1 8¢ : FIXED CSR DEVICE 
bee 1580 | 
039 1 89 ACF SUBAF IXED: : 
52 84 3C 0358 1286 30S: MOVZWL (R4)+,R2 :GET CSR wOF Eset 
6— 13 0358 1287 BEQL NO MORE TO PROCESS 
52 1009 C642 9E 0350 1288 MOVAB UBA LOBASE (R6) CR2] Re ‘ET AD DDRESS OF CSR 
0c 52 DO 0363 1289 MOVL 2, ACFS$L_CONTRLREG(R?) iSET ADDRESS OF CONTROL REGISTER 
03 8s 02 0 0367 1290 BBS ; ‘ba v_FCOATVEC,(R3),31$ :IF SET, FLOATING VECTOR ASSIGNMENT 
51 4 3C 0368 1291 MOVZWL (R ae itt ACTUAL VECTOR ADDRES 
10 A7 31 80 ie 129¢ 31$: mov RI .ACFSU_CVECTOR(R7) Set ADDRESS OF INTERRUPT VECTOR 
00000000'GF 16 0375 129% $B G*EXESTEST_CSR i CHECK DEVICE CSR 
A50 €9 0378 1295 BLBC ~=—_«RO, 308 ‘BRANCH IF CSR NON-EXISTENT 
0074'cF 851 dD 0 ze 1296 MOV R1,W*ACFSL_RISAVE ZSAVE REGISTERS 
oe ee 
OOEE 30 itt 1299 BSBW sFIX UP DEVICE NAME 
OOOOO4C1"EF 16 90 1300 JSB OAS 6 v war LOAD DRIVER 
O3E'DF 1 96 1301 J$B8 aw*A ACE SLR INE [CALL GENERATION ROUTINE 
51 14 a7 9A 1 : MOVL ACFSL bya »,R1 [GET ADDRESS OF DEVICE NAME STRING 
O3AA 30 O39E 1 BSBU SséAACF FSIAC _CHAR s INCREMENT CONT ROLLER 
51 0074°CF 7D O3A1 1304 MOVQ WACFSL“RISAVE, RI :RESTORE REGISTERS 
BSR BS 
: ve OAT Ee 4 (R3). OS’ :1F CLR, FIXED VECTOR ASSIGNMENT 
$ . 1€ 0¢ A 3 i o8 - BOVZBL ACE Acre agen ‘ f . :GET NUMBER OF CONTROLLER, INTERRUPT VECTORS 
51 6140 DE 8 130 MOVAL (R1)CR [CALCULATE ADDRESS OF NEXT VECTO 
50  O000006E ‘EF ¢ 1 10 MOVZWL } FS mye OD. RO [GET VECTOR MODU 
1 0 AO O3¢3 131 ADDW ~—s RO, SROUND UP TO NEXT VECTOR 
1 0 AA C6 1 BIcw R at TRUNCATE TO ACTUAL VECTOR OFFSET 
OC 83 3 E1 (B 1314 37% BBC #UBA_V_FLOATVEC, (R3)+,398 z1F CLR, NO FLOATING VECTOR ASSIGNMENT 


TOCONFG = AUTO CONFIGURATION OF DEVICE pata's BASE 15-SEP-1984 23:37:41 VAX/VMS Macro v04-00 Pa 33 | 
vou-000 ACFSUBA = UNIBUS ADAPTER AUTO CONF AGURAT 2=8b=|$8e 33:05:16 BOOTS. SRC JAUTOCONF G.MAR; 1 ot hid 
51 023€" 


i 2 CF 15 cpu YOACFSAU_SAVEVEC RI sANY VECTORS ASSIGNED? 
O263'cr $7 2 D6 1 i$ MCVW «=—s«aR1_, WCF SW_VECBASE [SET NEW VECTOR BASE ADDRESS 
D : W ; : 
FFIF H 395 BR 10$ 
D 1 H 
DE i 3 FLOATING VECTOR/CSR DEVICE 
DE 1 
DE 1324 ACFSUBAFLOATING: 
52 41°CE 3 DF 1325 MOVZWL WeACFSW_CSRBASE .R2 IGET BASE CSR OFFSET 
64 «OA e3 1 6 ADDW = (R4), Re 3ROUND TO NEXT CSR 
64 AA ES 1 ICw  (R4)- [TRUNCATE BACK TO CSR OFFSET 
50 1000 C642 9 £9 1 ’ MOVAR UBA [OBASE(R6)CR2].RO GET ACTUAL CSR ADDRESS 
00000000'GF 1 EF 1 JSB G*ERESTEST_CSR :CH ECK FOR NON“EXISTENT CSR 
03 50 3 F5 1330 BLBS RO branch if csr there 
0071 31 «03F8 «1331 BRW 608 BRANCH If C&R  WONCEXISTENT 
0241°CF 53 BO O3FB 1 ‘ 38$:  MOVW R2,W*ACF$W_CSRBAS [SET NEW BASE CSR OFFSET 
50 1000 64 9€ 0400 1333 40$: §§ MOVAB  UBA LOBASETRG) R2J,RO  :GET ACTUAL CSR ADDRESS 
00000000'GF 16 0406 1334 JSB Genes CSR SCHECK FOR NON-EXISTENT CSR 
5D 50 34 o40¢ 1335 BLBC =O «aR [BRANCH IF CSR NON-EXISTENT 
OC A? 1000 C642 SE 040F 1336 MOVAB Th TOBASE RG) C82] - SET ADDR F 
&i6 1337 ACFSL_CONTRLREG(R7) : CONTROL REGISTER 
10 51 BO 0416 1338 MOVW R1,ACF$W_CVECTOR(R7) | :SET ADDRESS OF INTERRUPT VECTOR 
0074°CF 51 7D O41A 1339 MOVa ss @P'1 UCACESLR RISAVE [SAVE REGISTERS 
007¢'CF 23 7D O41F 1340 MOV R3.W*ACFSL— RSSAVE 3 
0084 "CF 0 4g4 1341 MOVL  R5.W*ACFSL-RSSAVE : 
0052 30 0429 1 4g BSBW 3SséF.1K_ DEV_NAME FIX UP DEVICE NAME 
000004C1'EF 16 O042C 134 J$B LOAB_DRTV ER tLOAD DRIVER 
OO3E'DF 16 0432 1344 JSB SO AACr SL UTINE CALL ADEVICE GENERATION ROUTINE 
51 14. A7 0436 1345 MOVL  ACF$L DEDNAME LR?) « R1 3GET DRESS OF DEVICE NAME STRING 
030E 30 043A 1346 BSBW = ACF SINC_CHAR < TRCREMENT CONTROLLER 
51 O0O74'CF 7D 043D 1348 MOVQ W*ACFSL_RISAVE,R1 zRESTORE REGISTERS 
53 OO7C'CF §= 7D aug 1349 MOVQ W*ACFSL-R3SAVE.R3 ; 
55 0084"CF §46—00 0447 1350 MOVL  W*ACFSL-RSSAVE.R5 | 
BO 63 ae E1 044C 1351 50$: BBC #UBA_V_FLOATVEC, (R3),40$ sIF CLR FIXED VECTOR ASSIGNMENT | 
50, TEA? 9A 0450 1358 MOVZBL AcrSE ENUMVECER?) “RO :GET NUMBER OF CONTROLLER INTERRUPT VECTORS 
51 6140 DE 0454 135 MOVAL 1) CRO} CALCULATE a ADDRESS OF NEXT VECT | 
50 O000006E'EF 3¢ 0458 1354 MOVZWL ACF $W_VECMOD,RO :GET VECTO R MODULU | 
51 50 AO 045F 1355 ADDW = RO, R1~ ‘ROUND UP TO NEXT VECTOR 
51 50 AA 462 1336 BICW RO.R1 TRUNCATE TO ACTUAL VECTOR OFFSET 
52 $3 Ad 0465 1338 ADDY (RA) Re [CALCULATE ADDRESS OF NEXT CSR 
11 046A 135 BRB 408 : 
0243'cF 51 B80 04 C 1360 60$:  MOVW R1,W*ACFS$W_VECBASE [SAVE NEW VECTOR OFFSET 
0241°CF 52 B80 0471 1361 MOVW R ;W°ACF SW” CSRBASE [SAVE NEW CSR OFFSET 
0241°CF 02 AO 0476 1 6¢ ADDW *W*ACF$W~CSRBASE SADVANCE PAST ONE REGISTER BLOCK 
FE7F 31 0478 136 BRW ; 
47E 1364 .DSABL LSB 


crc Oa OOO re ee 
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he = AUTO CONFIGURATION OF DEVICE DATA BASE 15-SEP-1984 t $3: 33: 741 VAX/VMS Macro _v04-00 Page 
Vv FIX_DEV_NAME = Check for system device n 4=SEP-1984 2:16 (CBOOTS.SRCJAUTOCONFG.MAR;1 


~SBTTL FIX DEV_NAME = Check for system device name match/conflict 


+ 


If the acegeer # and CSR match the sayeten device then use the Syeten device 


47E 1 $6 
47E 136 
47E 1 $8 ; 
ae 18 | 
47E 1371 : name else if the device to be conf toured matches the system device name 
rh 43 ! ye 3; increment the controller of the device to be configured. 
47E 137% : R7 = Address of ACF block 
Boze 1375 ; 
rh es ae 
bie ! 8 FIX_DEV_NAME : 
51 wooed al 33 bees 1380 MOVA ACFST_SYS_DEVNAME ,R1 3GET SYSTEM DEVICE ay ADDRESS 
A 0485 1381 MOVZBL (R1)4#,R2 sR2 = SIZE, R1 = ADD 
53 14 A7 DO 0488 1 Hf MOVL ACFSL_DEVNAME (R7) ,R3 3GET DEVICE NAME ADDRESS 
54 83 9A O48C 138 MOVZBL 4th 3R4 = SIZE, R3 = ADDRESS 
18 epposes?” EF £9 O48F 1384 BLBC ACF$B_8 sSYSTEM DEVICE ON THIS ADAPTER? 
00000245 EF “oe o} beoe \ $2 Hag acest. BOOT RLREGca7), AcrSi ss ee Se SYSTEM DEVICE CSR? 
cs 2® FB @ a5 e cere \iee yy a #*°A/ 7,R4,(R3) DEVICE we ag 
14 A7 Q000024A‘EF 3 bene 1382 5s oo ACFST_SYS_DEVNAME , ACF SL BEWARE (R73! ;USE SYSTEM DEVICE NAME 
63 54 20—=s«61 3 $8 bees 133) 10$ at Beg (Rl). #*A/ /,R4,(R3) :DEVICE NA NAME Bg 
51 14 A7 DO 0489 1393 MOVL ACFSL pee ae. R1 3GET rbevice NAME ADDRESS 
0288 30 048D 1394 BSBW ACFS$I NC_ s INCREMENT THE CONTROLLER 
05 04C0 1395 20$: RSB 


ts 


=F 


os 


aloha ss 
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= Co-routine callback to loa 4-SEP-19 :02:16 (CBOOTS.SRCJAUTOCONFG.MAR;1 
-SBTTL LOAD_DRIVER = Co-routine callback to load driver 


a | 
za 


) 


+ 


Driver is preloaded before action routine is called if action routine 
is ACFSADD_UNITS. 


R7 = Address of ACF block 


LOAD_DRIVER: 


SOOCCCSOOOOOSOOOSOOoOOoOO se 


SPP PPL PPP LPP LEE 
VOOR PSH HH 3 roo +3 
Mm 


PAOIOAIOAAAAAIMOIAIMAAAMAOAIOOY eo 


ab ae sn ts i a a a 


PREPARA REE PREP EERE EEE EE PU 
MMV 2 SS ss DOO OOCOOCOOO 000 


MO OONAVULS WN ( OVONAUES WO 0an 


OOSE'CF QOOO004ES*SF 01 CMPL #ACFSADD_UNITS,W*ACFSL_ROUTINE ; Is this a generic routine device? | 
01 13 BEQL 10$ ; No = Exit | 
05 RSB 3; Return 

00 0B A? «3603——C—éE? 10$: BBSS #ACFSV_NOLOAD_DB,ACFSB_AFLAG(R7),20$ ; Don't load data base 
50 1 DO 04D 208: MOVL #1,R0 : Set success 
0036'CF B8EDO 04D POPL eo RETURN Save return back to AUTOCONFIGURE | 
9E 16 Rope JSB a(SP) : te load driver. ont to sysgen 

river onl 

00 0B A? O03 €5 O4DC BBCC #ACFSV_NOLOAD_DB,ACFSB_AFLAG(R7), °30$ ; Clear NOLOAD bit 
0036"DF 17 0Q4E1 30$: JMP aw*ACFSL_RETURN : Return to caller 


11 
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| AUTOCONFG = AUTO CONFIGURATION OF DEVICE DATA BASE 15-SEP-1984 23:37:41 VAX/VMS Macro V04-00 
/ v04=000 ACFSADD_UNITS = GENERIC ROUTINE FOR DEVI Fat et 9 $3: 2:16 [BOOTS.SRCJAUTOCONFG.MAR; 1 _ 6, 

oees 14 é -SBTTL ACFSADD_UNITS = GENERIC ROUTINE FOR DEVICE GENERATION 

4E5 1426 : ACFSCR11 = CR11 CARD READER 

beee 1427 ; ACFSLP11 = LP11 LINE PRINTER 

04ES 1428 ; ACFSLPA11 = LPAi1 LABORATORY I/0 SUBSYSTEM, CONTROLLER A 

04E5 1429 ; ACFSLPA11B - LPA11 LABORATORY 1/0 SUBSYSTEM, CONTROLLER B 
| O4ES 1430 ; ACFSDMC11 - pact SYNCHRONOUS COMMUNI CATION 
| O4E5 1431 ; ACF$TS11 = 1511 MAGTAPE TROLL 
ad 1335 : ACF$TS11B = TS11 MAGTAPE, COON TROCEER 8 

04E5 1434 ; THIS ROUTINE IS CALLED AS AN ACTION ROUTINE FROM THE UBA DEVIC AN T RAT 
| beee \o92 3 A SINGLE UNIT DATA BASE. sie taal cement. 
| Bree i TA 3; IT IS ALSO CALLED AS AN ACTION ROUTINE FOR UNSUPPORTED DEVICES. 

04E5 1439 : INPUTS: 

04E5 1440 : 

O4E5 1441: R6 = ADDRESS OF CONFIGURATION STATUS REGISTER. 

O4E5 1449 : R7 = ADDRESS OF CONFIGURATION CONTROL BLOCK. 

O4E5 1443; R&B = ADDRESS OF ADAPTER CONTROL BLOCK. 

04E5 1444; 

04E5 1445 ; OUTPUTS: 

Bees 1408 : A CO-ROUTINE CALL IS 

: “ROUTINE CALL MADE TO THE ORIGINAL CALLER DELIVERING THE DEVICE UNIT 

O4E5 1448 : DESCRIPTOR. 

04E5 1449: 

04E5 1450 

04E5 1451 ; Unsupported: 

04E5 145¢ 

04E5 1453 ACFSDH11: 

04E5 1454 ACF$DJ11: 

04E5 1455 ACFS$DC11: 

04ES5 1456 ACFSDM11B: 

04E5 1457 ACFSDN11: 

04E5 1458 ACF$DQ11: 

04E5 1459 ACFSDR11B: 

04E5 1460 ACFSDRIIC: 

04E5 1461 ACFS$DT11: 

04E5 146¢ CF$DU11: 

04E5 1463 ACFSDUP11: 

04E5 1464 ACFS$DV11: 

04E5 1465 ACFS$DWR70: 

04E5 1466 ACFSDX11: 

04E5 1467 ACFS$GT4O: 

04E5 1468 ACFSDLIIC: 

04E5 1469 ACFSKMC11: 

04E5 1470 ACFSKWIIC: 

04E5 1471 ACFSKW11W: 

04E5 1478 ACFS$LK11: 

04E5 1473 ACFSLPP11: 

04E5 1474 ACFSLPS11: 

04E5 1475 ACFS$PP611: 

04E5 1476 ACF$PR611: 

Oe 1477 ACFS$RSV: 

4E5 1478 ACFS$RX11: 
04E5 1479 ACE SAVE] : 
04E5 1480 ACFSVMV31: 


—---—- 
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v04=000 ACFSADD-UNITS = GENERIC ROUTINE FOR DEVI GageP-19B6 S8id2;t6 LAdove sheiacrocGnec.mar:1 29° 37, 
cE? 1481 ACFSDPV11: 
4E5 14 ¢ ACF$ISB11: 
tT} 1485 ACFSKMS11: 
4E 1484 ACFSPCL11: 
O4E5 1485 ACF$VS100: 
O4E5 14 § ACFSKMV11: 
04E5 13 ACFSIEQ11: 
04E5 1488 ACFSKCT32: 
O4E5 1489 ACFS$TC11: 
tT 1490 
4E5 1491 ; Supported: 
Beee 1338 
04E 1495 ACFS$CR11: : 
O4E5 1494 ACFSLP11: : 
O4E5 1495 ACFS$TUS8: ; 
04E5 1496 ACFS$RB730: : 
04E5 1497 ACFSLPA11: : 
04E5 1498 ACFSDMC11: : 
04E5 1499 ACFS$TS11: : 
04E5 1500 ACFSDR11W: : 
04E5 1501 ACFSDMP11: : 
04E5 1306 ACFSDMV11: : 
04E5 1503 ACF$DZ211: 3 
04E5 1504 ACFS$RK611: : 
04E5 1505 ACFS$RX211: : 
04E5 1506 ACFSDHV11: : 
04E5 1507 ACFSUNA : 
04E5 1508 ACFSOQNA: : 
04ES5 1509 ACF$VCO1B: : 
04E5 1510 
04E5 1511 ACFSADD_UNITS: 
04E5 131¢ 
O0036°CF 8EDO O4E5 151 POPL W*ACFSL_RETURN ; Save return address 
0042°CF D& Q4EA 1514 CLRL W*ACFSL_DELIVER_UNIT ; Deliver unit routine in driver 
51 0000' CF DO O4EE 1515 MOVL W*ACFSGC_DPT,R1 ; DPT of driver just loaded 
OD 13 ond 1318 BEQL 5$ ; Branch if none 
00462'CF 1C Al BO O04F5 1518 MOVW DPTS$W_DELIVER(R1),W*ACFSL_DELIVER_UNIT 
05 13 O4FB 1519 BEQL ; No driver-specified routine 
0042'CF 51 £40 beh8 1330 ADDL2 R1,W*ACFSL_DELIVER_UNIT ; Set address of driver action routine 
55 04 0302 1366 5$: CLRL R5 ; Set starting unit number 
12 A7 55 B60 0504 1524 108: MOVW R5,ACFSW_CUNIT(R7) : Next unit number 
51 0042°CF 00 0508 1525 MOVL  W*ACFSL_DELIVER_UNIT,R1 : Is there a driver routine? 
17 13 0500 1526 BEQL ; Branch if not 
53 O0000000'EF DO OSOF 1527 MOVL ACFSGL_IDB,R3 3; SET ADDRESS 2 
50 01 pO 0516 1528 MOVL #1,R :; Set success for driver 
54 OC A?) «(DO «0519 1529 MOVL  ACFSL_CONTRLREG(R7).R4 ; Set CSR address for driver 
61 16 0Q51D 1530 JSB : Call driver to deliver unit &n 
12 a7. -55)=— BOS COOSIF «1531 MOVW R5,ACFSW_CUNIT(R7) ; Save Unit # returned by driver 
05 50 =€9 B2 ; 1336 BLBC RO, 308 3; Branch if driver returns no 
50 01 00 03 6 1834 20$: MOVL #1,R0 : Set success indicator 
9E 16 b2 : 1336 JSB acép)+ ; Deliver unit to caller 
51 @O00'CF DO 0528 15 $ 30$: MOVL W*ACFSGL_DPT.R1 ; Address of DPT 


D 11 | 
SUTOEONFG ad a He CONFIGURATION OF DEVICE DATA BASE iF os St BS 9 $3354) yanive Macro V04-00 Page 38 
v04-000 ACFSADD_UNITS = GENERIC ROUTINE FOR DEVI 4-SEP=-1984 25:02:16 (CBOOTS.SRCJAUTOCONFG.MAR; 1 (1) 
oc 13 83 9 1338 —o 40$ ; Driver not found 
51 IAAL 3 (O5 1539 MOVZWL DPTSW_DEFUNITS(R1),R1 |; Number of driver specified units 
0536 1540 3 Unit number (R5) can change in DELIVER 
55 12 a7 3C 0536 1541 MOVZWL ACF SW_CUNIT(R7),R5 3; Set unit number 
mts St Fé tte 1308 AOBLSS R1,R5,10$ ; Any more units to process? 
OO36"DF 17 OS3E 1544 408: JMP aW*ACFSL_RETURN ; Return to caller 
0542 1545 


Pick up name of class device and driver 


51 14 A7 00 MOVL ACFS$L_DEVNAME(R7) ,R1 ; Get address of port device name 
52 00000228°EF 9E 108 MOVAB ACFSAB_CLASS_ TABLE ,R2 ; Get address of association table 
50 8s 00 MOVL (R2)+,R0 : Get potater to next structure 
6 1 BEQL 90$ :; If EQL, end of table 
01 A1 O09 AO 861 CMPW CLS$ST_PORTDEV(RO),1(R1) ; Do we have a match? 
F412 BNEQ 10$ 3; If NEQ, no = try again 
60 00 MOVL CLS$L_CLASSCEV(RO) ,- 
14 A7 ACF SL_DEVNAME (R7) ; Store address of class device name 
04 AO D0 MOVL CLSSL_CLASSDRV(RO) ,- ; 
18 A? ACFSL_DRVNAME (R7) ; Store address of class driver name 


: Create SYSID 
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v04-000 CLASS DRIVER DEVICE GENERATOR 4-SEP-1984 23:02:16 ([CBOOTS.SRCJAUTOCONFG.MAR;1 (1) 
2 1362 ~SBTTL CLASS DRIVER DEVICE GENERATOR 
| 2 1869 ; ACFSUDA = UDA DISK CONTROLLER 
bee 1329 ; ACFS$TU81 = TU81 TAPE CONTROLLER 
054 1326 3; THIS ROUTINE IS CALLED AS AN ACTION ROUTINE FROM THE UBA DEVICE SCAN TO 
0542 15535 ; GENERATE THE DATA BASE FOR A SINGLE PORT DEVICE AND THE ASSOCIATED 
0542 1554 ; CLASS DRIVER DATA BASE. 
0542 1555; 
0542 1556 ; INPUTS 
0542 1557; 
824 1328 ; R6 = ADDRESS OF CONFIGURATION STATUS REGISTER. 
542 1559; R? = ADDRESS OF CONFIGURATION CONTROL BLOCK. 
bee 1389 3 R& = ADDRESS OF ADAPTER CONTROL BLOCK. 
B2¢ 1286 : OUTPUTS: 
be 1564 ; A CO-ROUTINE CALL IS MADE TO THE ORIGINAL CALLER DELIVERING EACH DEVICE 
0542 1565 ; UNIT DESCRIPTOR. 
0542 1566; 
0542 1567 
0542 1568 ACF$TU81: 
0542 1569 ACFSUDA: 
B26s 1570 
OO3A'CF 8EDO O25 132) POPL W*ACFSL_RETURN2 ;SAVE RETURN ADDRESS 
Bae) 1373 3; First load port driver and create units normally. 
9C 10 0547 1575 BSBB ACFSADD_UNITS 
0549 1576 
0549 1577; . , E 
0549 1578 ; Now, load class driver and its associated database. 
0549 1579; 
0549 1580 
28 28 0549 1581 MOVC3 #ACFSC_LENGTH,- 
00000046'EF 67 o308 1286 (R7) ,ACFSL_ACF_SAVE : Save ACF block 
0551 1584 
0551 1585 
0551 1586 
0551 1587 
0551 1588 
0555 1589 
82 Cc 1590 
55C 1591 
O55F 1336 
561 159 
566 1594 
568 1595 
056A 1596 
05 1597 
05 1598 
5 1599 
5 1600 
5 1601 
5 1606 
5 160 


50 OC A7 DO MOVL ACFSL_CONTRLREG(R7),RO ; Create SYSID, first longword 
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v04-000 CLASS DRIVER DEVICE GENERATOR EP-1984 :02:16 ([CBOOTS.SRCJAUTOCONFG.MAR;1 (1) 
51 OC AB 3 273 1604 MOVZWL ADPSw TR(RB) RI 3; second longword 
2] sia 9464 8F c 7 1983 atst 3 Set high bit in first word 
2 O0000000'EF 7E 05 9 16 : MOVAQ 800860 €ONSYSID,R2 i; get address of SYSID quadword 
6 9 7D 5 198 MOVa AD Ae 3; Set SYSID 
OC A ivy) 5 4 1988 MOVL R2,ACFSL_CONTRLREG(R7) ; Set in CSR field 
19 90 : 1610 MOVB #ACFSM_SUPPORT,- 
0B A 590 1611 ACF $B_AFLAG(R7 } ; Clear configuration flag, set supported 
21 A? 94 «(059 19i¢ CLRB ACF $B_NUMUNIT(R7) 3; Clear number of units 
12 A? «BS 0595 161 CLRW ACF SW_CUNIT(R7) ; Clear unit number 
1C A? =B4 0598 1614 CLRW ary sn RS : Clear maxunits 
1E A7 01 «90 P43 1615 MOVB #1,ACFS$B MVEC(R7) : Set cnumvec to 1 
O1ED 30 059F 1616 BSBW ACESCLRe ti 
QO5SA2 1617 ; 
Be, 1918 3 Deliver class driver 
50 01 DO OSA 1959 , MOVL #1,R0 3; Set success 
9E 16 O5A5 16 1 JSB a(sP)+ ; 
51 00000000'EF 00 05A7 1838 MOVL ACFSGL_CRB,R1 3 *** temp ? 
04 13 OSAE Joes BEQL 208 ; 
67 DO 0580 1625 MOVL ACFSL_ADAPTER(R7), : Fill in ADP address in CRB 
38 Al 3206 1697 CRBSL_ INTD+VECSL “ADP(RI) 
0584 1628 ; 
b2ee 1993 ; Increment device name 
0584 1631 20S: 
51 14A7 DO 0584 1636 MOVL ACF SL ar beds R1 ; Set address 
0190 30 g2e8 163? BSBW ACFSINC_C 3; Do the increment 
28 28 OSBB 1635 MOVC3 #ACFSC_LENGTH,- 
67  00000046'EF a3 1636 es ACFSL_ACF_SAVE,(R7) : Restore ACF block 
OO3A'DF 17 O5C3 1638 IMP a@w*ACFSL_RETURN2 : Return 
05C7 1639 
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| v04=000 RLY MULTIPLE UNI GENERATOR 278Eb= 1383 $3:35344 BOOTS. SRC JAUTOCONFG.MAR; 1 - th 
seh 164 .SBTTL RL11 MULTIPLE UNIT GENERATOR 
4 1848 : ACFSRL11 = RL11 DISK CONTROLLER 
2} 1645 ; THIS ROUTINE I$ CALLED AS AN ACTION ROUTINE FROM THE UBA DEVICE SCAN TO GENERATE 
5¢7 1646 : THE DATE BASE FOR A SINGLE RL11. 
5C7 1647; 
5C7 1648 ; INPUTS: 
5C7 1649 ; 
5¢7 1650 : RG = ADDRESS OF CONFIGURATION STATUS REGISTER. 
05€7 1651: R7 = ADDRESS OF CONFIGURATION CONTROL BLOCK. 
O5¢7 1656 : RB = ADDRESS OF ADAPTER CONTROL BLOCK. 
OC? 1654 : OUTPUTS: 
bees 1696 ; A CO-ROUTINE CALL IS MADE TO THE ORIGINAL CALLER DELIVERING EACH DEVICE 
05C7 1657 : UNIT DESCRIPTOR. 
05C7 1658 ; 
05€7 1659 
05C7 1660 ACFSRL11: : 
0036'CF BEDO 05C7 1661 POPL WACFSL_RETURN [SAVE RETURN ADDRESS 
0 D4 O05¢¢C 166¢ CLRL =—s_ RO :SET STARTING UNIT NUMBER 
12 a7. 50 +80 Océ 1663 70$:  MOVW  RO,ACFSW_CUNIT(R7) [SET CONTROLLER UNIT NUMBER 
51 OC A? 00 O5D2 1664 MOVL  ACFSL_CORNTRLREG(R7).R1 [GET ADDRESS OF DEVICE CSR 
2c = 10 0906 1665 BSBB ‘WAIT FOR CONTROLLER READY 
04 Al OB B80 0508 1666 MOVW  #RL_DA_M_MRK!RL_DA_M STS!- 7SET GET STATUS BITS 
050C 1667 RL_OA_A_RST,RL_BACRID : 
53 50 08 78 O5DC 1668 ASHL. # -RO.RS :MOVE UNIT NUMBER TO POSITION 
61 53 04 Ad O5E0 1669 BISW3 #4.R3,RL_CS(R1) SSELECT DRIVE AND GET STATUS 
1E 109 0564 1670 BSBB.Oti«éd ‘WAIT FOR CONTROLLER READY 
61 0400 8F B83 0566 1671 BITW #RL_CS_M_OPI,RL_CS(R1) [OPERATION COMPLETE? 
OF 12 O5€B 1672 BNEQ :1F NEQ NO = NONEXISTENT DRIVE 
0070'cF 50 00 OS5ED 167 MOVL §RO,W*ACFSL_ROSAVE [SAVE REGISTER 
50 01 00 OoFe 1674 MOVL #1.RO [SET SUCCESS INDICATOR 
9E 16 O5F5S 1675 JSB a(sp)+ [DELIVER UNIT TO CALLER 
50 0070°CF 09 05°? 1676 MOVL  W*ACFSL_ROSAVE,RO SRESTORE REGISTER 
ce 50 «2603'CO#F oor 1677 80$ AOBLEQ #3, sANY MORE UNITS TO PROCESS? 
0036'"DF 17 0690 1678 JMP aw*ACFSL_RETURN TALL DONE 
52. 01312000 8F D0 9604 1680 130$: MOVL #2*500*1000*20,R2 : * should be TIMEWAIT 
61 95 060B 1681 140$: TSTB RL_CS(R1) 3; Controller ready? 
01 18 060D 1688 BGEQ : branch if not 
05 O60F 168 RSB : Continue 
F852 F5 061 1684 150$:  SOBGTR R2,1408 ; Loop 
BE D5 0613 1685 TSTL = (SP) + > Get rid of return PC 
0036"DF 17 3912 1936 JMP aW*ACFSL_RETURN 3 error - exit 
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~SBTTL MULTIPLE DEVICE GENERATOR 
ACFSCOMBO_DEVICES = MULTIPLE DEVICE COMBO BOARD 
THIS ROUTINE IS CALLED AS_AN ACTION ROUTINE FROM THE UBA DEVICE ae TO i Lie 


r> 
—c 
liemnd 
vo 
rr 

zo 
ma 
=s 


A CO-ROUTINE CALL IS MADE TO THE ORIGINAL CALLER DELIVERING EACH DEVICE 
UNIT DESCRIPTOR. 


: THE DATA BASE FOR atte DMF 32, WHICH INCLUDES A SYNC LINE, ASYNC LINE (DZ TYPE), 
: A LP LINE AND A DRIIC LINE. A MAXI OF of THESE DEVICES CAN BE ON THE 
: BOARD AT ONE TIME, BUT VARIOUS COMBINATIO THE FOUR I§ P LE. 

: THIS ROUTINE 1s ALSO CALLED FOR THE DMZ gn Ont en INCLUDES 3 ASYNC LINES, AND 
: THE CP132 WHICH INCLUDES 3 SYNC LINES. 

+ INPUTS: 

; Re = ADDRESS OF COMBO DEVICE DECRIPTOR TABLE 

: R3 = BITMASK OF DEVICES PRESENT 

; R6 = ADDRESS OF CONFIGURATION STATUS REGISTER. 

: R7 = ADDRESS OF CONFIGURATION CONTROL BLOCK. 

; RB = ADDRESS OF ADAPTER CONTROL BLOCK. 

: OUTPUTS: 


ACF SBITMASK: 
7FFF - WORD 


“X7FFF +i MASK FOR EXTZV_ INSTRUCTION TO 


IT 

ONVERT A NUMBER TO A BIT MASK 

ACF SAL DMF32_COMBO,R2 ;ADDRESS OF UBADEV TABLE FOR DMF32 

MOVL UBTSL_DEVNAME(R2) ,ACFSAL. _DEVNAME; SAVE COMBO DEVICE NAME 
MOVAB ACFSAB_DMF32_TABLE,R2 ADDRESS OF DESCRIPTOR TABLE 

3 READ THE DMF 32 IDENT REGISTER TO GET BITMASK OF DEVICES PRESENT 


MOVW @ACFSL_CONTRLREG(R7) ,R3 
aacev #OMF SV" IDENT ,ADMFSS_ IDENT,R3,R3 


ACF SDMF 32: 
52. QOO0016C°EF 00 MOVL 
00000234°EF 62 00 
52 OOOO01F4*EF 9€ 


53 0C B87 SB 


DOCOOCOCOCCSOSOSCOSOSSOOSOSOSOSOOOSOOOOSOOOOOOOOCOOOOOOOOOOCOOCOoOO 
DDD DED DED DDD D-DD PDP DPA PAPA PAPA AAA AA AAA AAA AAAAAAA A 
III) ttt a td td td od ot ot at at tt et tet etd «=F 
OFOOCOCOCOVDWD OOOO OOVOVOODOOVDOOVDOOVOOVOOOOOOOVOO 
ee ee ee a a a ee a ee a ee ae ee a a a ee ed a a a a a a eee eed | 
WW NOOO OOOOOOPASI &O 
INIAPOPIPOPIPININPINININDS 2 = I MQOTOTOOCOOOCOOCOWOVOOOOOOWNOA Oc 
DOONAN WN 0 OOO UE WD 0 OONOAU EWN 0 OONOUS WN 0O0 mn 


53 53 04 oc EF 
11 4 ACF SCOMBO_DEVICES ;CALL COMMON COMBO DEVICE ROUTINE 
38 ACFSCPI32: 
52.  00000194'EF 00 38 MOVL ACFSAL_CP132_COMBO,R2  ;ADDRESS OF UBADEV TABLE FOR case 
00000234°EF 62 00 +¢ 0 MOVL UBTS$L BE Nae tase ) ,ACFSAL. -DEVNAME; SAVE COMBO DEV 
52 00000218°EF  9€ 4 1 MOVAB ACF SABC ABLE,R2 TADDRESS OF DESCRIPTOR TABLE 
15 11 $e ¢ BRB ACESORZEPI 7CALL COMMON COMBO DEVICE ROUTINE 
65 4 ACFSDMZ32: 
52. 00000190°EF DO 065 5 MOVL ACFSAL_DMZ32_COMBO,R2  ;ADDRESS OF UBADEV TABLE FOR DMZ32 
00000234°EF 62 D0 065 § MOVL  UBTSL_DEVNAME(R2) ,ACFSAL_DEVNAME; SAVE COMBO DEVICE NAME 
52 00000208'°EF 9€ et 4 acouemnert = ACF SAB _DMZ32_TABLE.R2 SADDRESS OF DESCRIPTOR TABLE 
53 OC B87 BO 0667 9 MOVW  @ACFSL_CONTRLREG(R7).R3 ;GET CONTENTS OF THE MAIN CSR 
08 EF 0668 1740 EXTZV BCPISV_SUBCNTRL = ZEXTRACT THE NUMBER OF SUBCONTROLLERS 
5304 660 41 #CPI$S”"SUBCNTRL,R3,R3 
53 AG AF 53 0 €F 970 $5 EXTZV #0,R3,6°ACFSBITMASK,R3 CONVERT NUMBER TO BIT MASK 
676 1744 ACFSCOMBO_ DEVICES: 
OOSA‘CF BEDO 0676 45 POPL W*ACFSL_RETURN2 7SAVE RETURN ADDRESS 


i A 
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‘vOe=000 MULTIPLE DEVICE GENERATOR 4-SEP=19 3b $3 33; :16 ([BOOTS.SRCJAUTOCONFG.MAR;1 - 
B'EF OC AZ D 174 MOVL  ACFSL_CONTRLREG(R7) ,ACFSAL_CSR : SAVE CSR BASE 
Oo00098¢ EF 6 A? 80 ore 1549 MOVW ACESUTEVECTORIRT) JACESAW. VECTOR ;SAVE VECTOR BASE 
40°EF 16 A7 6 1748 MOVB  ACFSBTCNUMVEC(R7).ACFSAB-NUMVEC :SAVE NUMVEC 
693 1750 
| 54 82 DO 069 1781 10$ MOVL (Re), aR ZNEXT DEVICE 
1A 12 0696 17 ; BNEG 20 ‘BRANCH IF NOT END OF LIST 
14 A? 00000234'EF 00 069 1% MOVL § ACFSAL_DEVNAME zACESL DEVNAME(R7):RESTORE DEVICE NAME 
1E A? 00000240°EF 90 O6A0 1754 MOVB  ACFSAB-NUMVEC Acre. CNUM VEC(R7) :RESTORE NUMVEC 
1F A? 94 06A8 1755 CLRB © ACFSB_COMBO_VECTOR_OFFSET(R7) RESET COMBO SPECIFIC ACF FIELDS 
20 A? (9% 6AB 173° CLRB: ACFSB-COMBO-CSR TOFFSETe Ey) : 
OO3A'DE 17 6A 1738 JMP a@W*ACFSL_RETURN2 : RETURN 
53 84 83 0682 1760 208: BITW (R4)+,R3 :1S THIS DEVICE ON BOARD? 
oc 0685 1761 BEQL 108 ‘BRANCH IF 
14 A? 84 00 0687 1788 MOVL  (R4)+,ACFSL_DEVNAME (R7) :DEVICE NAME 
18 A? «84 «60 «(06BB O«1764 MOVL  (R4)+,ACFSL_DRVNAME(R7) SDRIVER NAME 
1E A? 840 sC«O90s«COSBF 1765 MOVE  (R4)+.ACFS$B~CNUMVEC(R7) :NUMBER 0 VECTORS 
51 64 08 O02 EF 06C3 1766 EXTZ2V #2,48,(R4),R1 TOF FSET tN LONGWORDS 
1fF A?) «6510-90 «06CB.SO1767 MOVB. R1.ACF$B_COMBO_VECTOR_OFFSET(R7): OFFSET BACK TO START OF VECTOR 
10 A? Q000023C°EF 84 Al O6CC 1768 ADDW3 (R4)+,ACFSAW vECTOR ACE Sw CVECTOR (RZ) ADDRESS OF VECTOR 
20 A? 66 BE 06D5 1769 MNEGB (R4),ACF$B_COMBO_CSR_OFFSET(R7) :OFFSET BACK TO START OF CSR 
OC A7 00000238'EF 84 (C1 0609 1770 ADDL3 (R4)+,ACFSAL_CSR>ACFSL_ CONTREREGER?) E ADBRESS OF CSR 
0B A? «©110~—=—soaBB bees 127 BISB2 #ACFSM_SUPPORT,ACFSB_AFLAG(R7) ;ASSUME NOSUPPORT 
04 84 00 €1 0666 177 BBC #UBA_V~ SUPPORT. (R4)+730$ ‘BRANCH IF NOSUPPORT 
0B A? +10. «BA O6EA 177 B1CB2 PACESM™ “SUPPORT. ACFS$B_AFLAG(R7) ;SET SUPPORTED 
008s'cF 52 7D oer 1776 30$:  MOVQ  R2,W*ACFSL_R2R3SAVE ZSAVE R2,R3 
FOEF 30 O6F3 1778 BSBW ACFSADD_UNITS ZUSE COMMON ROUTINE TO DELIVER UNITS 
51 14 A? DO 06F6 1779 MOVL  ACFS$L DEVNAME.(R7), R1 [GET DEVICE NAME ADDRESS 
004E 30 O6FA 1780 BSBW SséACCF S$ S INCREMENT CONTROLLER LETTER 
52. 0088'CF 7D O6FD 1781 MOVQ W*ACFSL~ “RORSSAVE, R2 SRESTORE REGISTERS 
31 0702 1782 BRW 10$ :LOOP 


—----—-—------ > ——— ee a 
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_W04=000 AUTO CONFIGURATION DEVICE DATA BASE RESE 4=SEP-1984 23:02:16 (BOOTS. SRCJAUTOCONFG.MAR;1 (1) 
| ? 17 5 .SBTTL AUTO CONFIGURATION DEVICE DATA BASE RESET 
? 7 5 3 IOCSAUTORESET = AUTO CONFIGURATION DEVICE DATA BASE RESET 
? 7 : 3 THIS ROUTINE IS CALLED TO RESET THE AUTO CONFIGURATION DEVICE DATA BASE. 
705 1791 : INPUTS: 
7 2 1798 ; 
7 1793 ;: NONE. 
705 179% : 
208 1295 : OUTPUTS: 
a 1999 : THE CONTROLLER DESIGNATORS ARE ALL RESET TO ‘A‘, WITH 
705 1798 : THE EXCEPTION OF A FEW DEVICES IN UBATABLE THAT ARE RESET 
0705 1799 : TO THE LETTER STORED IN THAT TABLE. 
0705 1800 ; 
0705 1801 :- 
0705 1808 
0705 1803 IOCSAUTORESET:: yAUTO CONFIGURATION DEVICE DATA BASE RESET 
50 O0000000°EF 9E 0705 1804 MOVAB. ACFSAL_RESET.RO [GET ADDRESS OF RESET POINTER T 
51 80 00 070C¢ 1805 10$:  MOVL (RO)+,R1 [GET ADDRESS OF NEXT CONTROLLER DESIGNATOR 
06 13 O70F 1806 BEQL [IF EQL END OF TAB 
71 +41 8F 90 0711 1807 MOVB #*A/A/,-(R1) TRESET CONTROLLER DESIGNATOR 
FS O713 1808 BRB 10$ SLOOP 
7E 52 7D 0717 1810 208: mova  R2,-(SP) 7SAVE R2,R3 
50 O0000090°EF  9€ 7A 1811 MOVAB ACF SAB_UBATABLE,RO SBASE ADDRESS OF TABLE 
51 80 D0 0721 1818 30$:  MOVL (RO)+,R1 :NEXT ELEMENT IN TABLE 
OD 13 0724 1814 BEQL 4 SEND O 
52 61 00 0726 1815 MOVL §UBTSL_DEVNAME(R1),R2 § : ADDRESS OF NAME TO RESET 
53 620««9A«(0729=—«s«1816 MOVZBL “EXPAND LENGTH 
6342 10 A1 90 O7eC 1817 MOVE  UBTS$B_LETTER(R1),(R3)CR2) ;RESET CONTROLLER LETTER 
EE 11 731 1818 BRB 30$ LOOP 
52. 00000110°EF 00 et 1820 40$: MOVL  ACFSAL_D211_TTA,R2 :SPECIAL CASE TT 
52 DO 073A 1821 MOVL UBTSL_DEVNAME(R2),R2 ADDRESS OF DEVICE NAME 
82 90 073D 1828 MOVB #3, (R2)¢ 'SET CO 
62 20415454 BF DO 0740 182 MOVL  #*A/TTA /,(R2) [MOVE IN CORRECT FIELD 
52 BE «67D «(0747 «(1824 MOVG  (SP)+,R2 SRESTORE R2,R3 
05 074A 1825 RSB RETURN 
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748 1827 .SBiiiL ROUTINE INC_CHAR 
ste 1859 s+ 
748 1830; 
me ! 1 ; Routine to increment device name last character 
748 5 : CALLING SEQUENCE: 
oe : 5: BSBx ACFSINC_CHAR (called from AUTOCONFG and CONFIG) 
748 1 $ : INPUT: 
748 (1 8 s 
748 «(1 3 R1 = Address of device name ascic string 
748 1840 ; 
0748 1841 ; OUTPUT: 
748 «1 rk 3 
t+ : tz g Device name with last character incremented 
748 184s : For TIcn: (#** NOT ACTIVATED YET *##) 
748 1846 ; Controller is incremented until TTZ and then goes 
me Hts $ to TTAA,TTAB,...TTAZ,TIBA,... 
0748 1849 ; For all other: 
0748 1330 : A,..-,DDP,DEA,...,DEP - wraps at P because its the 
toe 193) 3 16th Letter of the alphabet. (For RSX compatability). 
748 1833 : TT devices (WILL BE) special cased in the AME. 
0748 1854; 
748 1923 3 RO does not return status 
breR 188 
0748 1858 ° 
0748 1859 ACFSINC_CHAR:: 
0748 1860 
50 61 QA arte 130) MOVZBL (R1),R0 : Get lengt> from first byte 
074E 1863 : The following Line of code can be nop‘ed out to activate the TTAA, etc 
me 1308 ; for terminals. 
08 11 O74E 1866 ° BRB 5$ 
5454 BF 01 Al 61 786 ibe? CMPW 1(R1) ,#@*A/TT/ : Terminal ? 
14 «8613 bp88 1308 BEQL 208 3: yes - special case code 
6041 96 738 18970 5$: INCB cngr erty 3: Increment the last character 
51 8F 6041 91 07 1871 CMPB (RO)CR1),#*A/Q/ : Is this the 17th controller ? 
1F 076 1376 BLSSU 10% 3 No, branch 
FF A041 §=6—©96 «©—0762~= 187 INCB ohtt ae : Increment last char of device name 
6041 41 8F 90 76 1874 MOVB #*A/A/,(RO)CRII ; Move /A/ to last 
05 ree ' o 10$: RSB 3; Return 
5A 8F 6041 91 ro 1 53 208: CMPB (RO)CR1),@*A/2/ ; Ready to wrap ? 
04 #13 #O771 #1 8 BEQL : Branch if yes 
6041 ss 773° «187 INCB (RO)CR1I) 3; Increment last character 
0 a ! ? RSB 3; Return 
61 93 91 0777 1 § 30$: CMPB #3,(R1) 3: Still Tl ? 
A 12 O77A 1 BNEQ 408 : Branch if not 


M1 
TOCONFG = AUTO CONFIGURATION OF DEVICE DATA BASE 15-SEP=1986 23:37:41 VAX/VMS M - Pease 4 
voee500 ROUTINE INC-CHAR RrSEer TORS S8i85:74 HAAS VES Mages OR OO an. Page 46, 
61 4 90 O77C 1886 MOVB #4,(R1) ; Set longer na 
o3 at fai be 80 pre ieee MOVW —- #*A/ AA, 3(R1) choca a 
Ht : $ RSB 3; Return 
03 Al 96 0786 1888 40$:  INCB 3¢R1) 21 t first controtter lett 
04 Al 41 BF 90 «(0789«1889 HOVE APA/A/4¢R1) iinet ut aerate |! CU 
2: 2 
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3 .SBTTL ROUTINE CLR_ACF 


U 
Cleared cells 


CALLING SEQUENCE 
BSBx ACFSCLR_ACF 


34 
ui 
39 : Routine to clear device data block portions of the autoconfigure 
> 3 context block (all those written by SGNSGET DEVICE) 
00 ; INPUT 
: R7 = Address of ACF block 
: OUTPUT 


ACFSCLR_ACF:: 


~O 0D 09 C0 C9 CD Cd CO CO. CD CD CO CO G9 CD C9 CO CO OD 0DCD 
UA Fn nn nn nn 


SSS 
kk kk kkk a dd dd 
WOWOODOOODOOVOODOOOOOOOONO 
Me BOO OOOCOCOCSCO 
SOOWONAULS WN" OVOONAUE Wr — 


~J 
= 
OOCCCCCOCOCOOCOCOCoCOooO: 


00000000 EF CLRL ACFSGL_DDB ; Clear cells 
QOOOOO00'EF 04 CLRL ACFS$GL_UCB 
OOOOOOOO'EF D4 9B CLRL ACFS$GL_1DB 
QOOOOOOO'EF D4 Al CLRL ACFSGL_CRB 
OOOOOO00'EF D4 A? CLRL ACF$GL_SB 
OQOOOO000"EF 04 AD CLRL ACFSGL_LASTDDB 
05 B3 RSB 
B4 
B4 ~END 
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SISDRIVERS 


SIX$ 
SIXDRIVERS 


SLAS 
SOHDRIVERS 
SOIDRIVERS 


$01$ 


SOGDRIVERS 


SOHS 


SOF DRIVERS 


$0G$ 


SOEDRIVERS 


SOF $ 


SODDRIVERS 


$SOES 


SOCDRIVERS 


$0D$ 


SLPDRIVERS 
SLSDRIVERS 
SOADRIVERS 
$08$ 


SLCDRIVERS 
$LS$ 


SLADRIVERS 
SLPS 


SOZDRIVERS 
SLC$ 


SOQDRIVERS 
SORDRIVERS 
SOTORIVERS 
SOYS 
SOYORIVERS 
$1S$ 


SORS 


SOMDRIVERS 


SOLDRIVERS 
$0Q$ 


SODDRIVERS 
SDEVDESCS 
SOMS 


SDEVNAMES 
SOLS 


SDBDRIVERS 


SCRORIVERS 
$OD$ 


$OBS 
SMFS 
SMS$ 
SMTS 
SOAS 


SCRE 
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Symbol table 4=-SEP=1984 23:02:16 [BOOTS.SRC AUTOCONFG. MAR; 1 (1). 
CRBSL_INTD = 00000024 UCBSL_PDT = 00000084 
DDBST_NAM = 000 O01 VECSL-ADP = 00000014 
DMFSS_IDENT = 00000004 VECSL_IDB = 00000008 
DMF SV_IDE = 0000000C 

DPTSW_DEFUNITS = BOO ONO TA 

DPTSW- DELIVER = 0000001¢ 

EXESGC_RPB teeeeere XxX 08 

EXESGL_SCB eeeeeeee = § X 08 

EXESGL~- TENUSEC eeereeeer KX 08 

EXESTEST CSR eererese XX 08 

F1X_DEV_RAME 0000047E R 08 

IDBSL_CSR = 808888 

LOCSADTOCONE 16 0000000 RG 08 

IOCSAUTORESET 00000705 RG 08 

LOAD MR IVER 000004C1 R 08 
MBASC_ER 8 = 444d 
MBASL_SR = sis 44 
MBASH SR_ATIN = 00010000 
MBASV_SR_NED = 00000012 
MBA_DS = 00000004 
MBA_DT = 00000018 

PDTSL_UCBO = 000000D¢ 

CS = 00000000 

RL_CS_M_OPI = 00000400 

RL-DA = 00000004 

L—DA_M_MRK = 00000001 

RL_DA_M_RST = 00000008 

RL_DA_M_STS = 00000002 
RPBSL TR1 = 00000020 

SYS$GC_BOOTUCB eereeere xX 08 

TMO3_ 00000024 

™78_AB 00000010 

™478_DS 0 


™#78_ 
TM78_M_TMCLR 


t 

q 
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“a 0004 
UBA~M~ SUPPORT 0001 
“V7FLOA 9001 
UBA_V~FLOATVEC 
“SUP 0000000 
UBTSB~FLAGS 00000013 G 
UBTSB_LETTER 90000010 
UBT$B~NUMVE 9000011 & 
UBT$B~UNUSED 9000012 G 
UBT$L —DEVNAME 0000000 6G 
UBTSL~DRVNAME 9000004 
UBT$L~ROUT INE 900000¢ G 
“RT 0000008 
UB Tsu REMAINDER 208 16 6 
UCBS$L~DDB 000038 
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AUTOCONFG 
Psect synopsis 


PSECT name 


ABSS 
NONPAGED DATA 
ACFSRESET 


NONPAGED_CODE 


Phase 


Initialization 


Command processing 
Pass 
— table sort 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 
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“SEP=1984 23:02:1 


$e mrt armor eam ama + 


' Psect synopsis B 


p Rated 


Allocation PSECT No. Attributes 
00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL 
00000 9° ( -) QO1¢ 1.) NOPIC USR CON ABS LCL 
0000025A ( 602.) be ( <°{ NOPIC USR CON REL LCL 
00000044 ( 8 wt ( -) NOPIC USR CON REL LCL 
44 EB ( 273.) 4 ( 4.) NOPIC USR CON’ REL LCL 
ty! ( 903°} 5 ¢ 5.) NOPIC USR CON’ REL LCL 
QOOOOBFE ( 23502.) 8g ( 8.) NOPIC USR CON REL LCL 
00000176 ( 374.) O07 ¢ -) NOPIC USR CON REL LCL 
00000784 ( 1972.) 08 ¢ 8.) NOPIC USR CON REL LCL 
terror awmo sree wees aman anoes & 
! ; Performance indicators ' 
eeeaseeueeesceeseosoocoss 
CPU Time Elapsed Time 
31 00:00:00.09 00:00:00.95 
112 00:00:00.65 00:00:02.70 
566 B8: B3 83° 1 00:00:31.52 
0 00:00:02.27 00:00:04.57 
391 00:00:07.16 00:00:14.08 
46 00:00:00.35 00:00:00.44 
1 00:00:00.06 00:00:00.27 
0 es Bes 00:00:00.00 
1149 00:00:35.79 00:00:54.53 


The working set Limit was 2000 pages. 
163279 bytes (319 pages) of virtual memory were used to buffer the intermediate code. 
There were 80 pages of symbol table space a tecoted to hold 1463 non-local and 70 local symbols. 


1920 source lines were read in Pass 1 
30 pages of virtual memory were used to define 


Macro Library name 


-5255$DUA28: ESS 0845 0G) eOets MLB; 1 


=$255$DU of 
~$255$DUA28: 


SYS.OBJJLIB.MLB; 
SYSC IBIS TARLET MLB; 2 


TOTALS (all Libraries) 
1210 GETS were required to define 16 macros. 
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macros. 


a? 4 object records in Pass 2. 
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! Macro Library statistics : 
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Macros defined 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:AUTOCONF G/OBJ=0BJ$:AUTOCONFG MSRC$:AUTOCONF G/UPDATE=(ENHS: AUTOCONFG) +EXECMLS/L1B+L1B$:B00TS.MLB/LIB 


AX/VMS Macro V 


v04-00 
BOOTS. SRC JAUTOCONFG.MAR; 1 


NOSHR NOEXE NORD 
NOSHR EXE RD 
NOSHR NOEXE RD 
NOSH EXE RD 
NOSHR EXE RD 
NOSHR EXE RD 
NOSHR EXE RD 
NOSHR EXE RD 
NOSHR EXE RD 
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